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© Apparatus and process for reagent fluid dispensing and printing. 



< 

M 
N 

00 
CO 
CM 



Q. 

UJ 



© A system for printing and dispensing chemical reagents in precisely controlled volumes onto a medium at a 
precisely controlled location. A jetting tube, comprising an orifice at one end and a fluid receiving aperture at the 
other end, is concentrically mounted within a cylindrical piezo-electric transducer. The fluid receiving aperture is 
connected to a reservoir containing a selected reagent by means of a fitter. The reservoir is pressurized by a 
regulated air supply. An electrical signal of short duration is applied to the transducer. The pulse causes the 
transducer and the volume defined by the jetting tube to expand, thereby drawing in a small quantity of reagent 
fluid. The cessation ot the pulse causes the transducer and the volume of the jetting tube to de-expand, thereby 
causing at least a substantially uniformly sized droplet of reagent fluid to be propelled through the orifice. The 
droplet may be directed to impact a printing medium or collected in a dispensing recepticle. 
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APPARATUS AND PROCESS FOR REAGENT FLUID DISPENSING AND PRINTING 



BACKGROUND OF THE INVENTION 

The present invention relates to an apparatus and process tor dispensing and printing reagent fluids, 
s wherein a transducer is used to propel small quantities of the fluid towards a positioned target. 

Diagnostic assays often require systems for metering, dispensing and printing reagent fluids. In the 
case of metering and dispensing, such systems comprise both manual and automatic means. For purposes 
of practicality, the present background discussion will focus on the methods of metering and dispensing 100 
micro-liter volumes or less. 

10 The manual systems of metering and dispensing include the glass capillary pipet; the micro-pipet; the 
precision syringe; and weighing instruments. The glass capillary pipet is formed from a precision bore glass 
capillary tube The pipet typically comprises a fire blown bulb and a tubular portion fire drawn to a fine 
point. Fluid is precisely metered by aspirating liquid through the tube into the bulb to a predetermined level 
indicated by an etched mark. The fluid may then be dispensed by blowing air through the tube. 

is The micro-pipet typically comprises a cylinder and a spring loaded piston. The travel of the piston is 
precisely determined by a threaded stop. The distance the piston travels within the cylinder and the 
diameter of the cylinder define a precise volume. The fluid is aspirated into and dispensed from the micro- 
pipet in precise quantities by movement of the piston within the cylinder. 

The precision syringe generally comprises a precisely manufactured plunger and cylinder with ao 

20 curately positioned metering marks. The fluid is introduced into and dispensed from the syringe by 
movement of the plunger between the marks. 

Weighing techniques for dispensing fluids often simply involve weighing a quantity of fluid. The density 
of the fluid may then be used to determine the fluid volume. 

Exemplary automatic metering and dispensing systems include the precision syringe pump; the 

25 peristaltic pump; and the high performance liquid chromatography (HPLC) metering valve. The precision 
syringe pump generally comprises a precision ground piston located within a precsion bore cylinder. The 
piston is moved within the cylinder in precise increments by a stepping motor. 

The peristaltic pump comprises an elastomeric tube which is sequentially pinched by a series of rollers. 
Often the tube is placed inside a semi-circular channel and the rollers mounted on the outer edge of a disc 

so driven by a stepping motor. The movement of the rollers against the tubing produces peristaltic movement 

of the fluid. ..... 

The HPLC metering valve comprises a defined length of precision inner diameter tubing. The fluid is 

introduced into the define volume of the tubing with the valve in a first position and then dispensed from the 

tubing when the valve is placed in a second position, 
ss All of the above metering and dispensing systems have the disadvantage that the volumes dispensed 

are relatively large. Furthermore, these systems are also relatively slow, inefficient and comprise precision 

fitted components which are particularly susceptible to wear. 

The printing of reagent fluids is frequently required in the manufacture of chemical assay test strips. 

Selected reagents are printed in a desired configuration on strips of filter paper. The strips may then be 
to used as a disposable diagnostic tool to determine the presence or absence of a variety of chemical 

components. ,, . 

Generally to perform a chemical assay with a test strip, the strip is exposed to a fluid or a series of 
fluids to be tested, such as blood, serum or urine. In some instances, the strip is rinsed and processed with 
additional reagents prior to being interpreted. The precise interpretation depends on the type of chemical 
45 reactions involved, but it may be as simple as visually inspecting the test strip for a particular color change. 
The manufacture of test strips generally involves either a manufacturing process or a blotting process. 
The blotting process is the simplest manufacturing method and permits most reagents to be applied w.thout 
modification. A disadvantage of this process is that it is difficult to blot the fluids onto the test strip with 
precision. 

so The printing process will often involve any of three well known methods: silk screening; gravure: and 
transfer printing. The silk screening of reagents generally involves producing a screen by photographic 
methods in the desired configuration for each reagent to be printed. The screen is exposed under light to a 
preselected pattern and then developed. The areas of the screen which are not exposed to light, when 
devel oped, become porous. However, the areas of the screen which have been exposed to light remain 
relatively nonporous. The screen is then secured in a frame and the test strip placed below. The desired 
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reagent fluid, specially prepared to have a high viscosity, is spread over the top side of the screen. The 
reagent passes through the porous areas of the screen and onto the test strip. The test strip is then 
subjected to a drying process, specific to each reagent. Once the test strip is dry, it may be printed again 
using a different screen, pattern and reagent. 

5 The gravure method of printing reagents comprises coating a metal surface with a light sensitive 
polymer. The polymer is exposed to light in the desired predetermined pattern. When developed, the 
polymer creates hydrophilic and hydrophobic regions. The reagent is specially prepared such that when 
applied to the metal It will adhere only to the hydrophilic regions. After the specially prepared reagent is 
applied, the test strip is pressed against the metal and the reagent is transferred from the metal to the test 

70 strip. 

The transfer printing method comprises transferring the reagents from a die to the test strip in the 
desired pattern. The die is made with the appropriate pattern on its surface and then coated with the 
desired, specially prepared reagent. A rubber stamp mechanism is pressed against the die to transfer the 
reagent in the desired pattern from the die to the rubber stamp. The rubber stamp is then pressed against 

75 the test strip to transfer the reagent, in the same pattern, to the test strip. 

' Each of the above-mentioned reagent printing techniques has significant disadvantages. The most 
common disadvantage is the requirement that the reagents must be specially prepared. Additionally, if a 
variety of reagents are to be printed onto a single test strip, the strip must be carefully aligned prior to each 
printing. This alignment procedure increases the cost and decreases the throughput of the printing process. 

20 Moreover, a speciaLdie or screen must be produced for each pattern to be printed. A further disadvantage 
arises in that the above printing methods are unable to place reproduceable minute quantities of reagent on 
the test strip. 

It is an object of the present invention to provide a printing and dispensing method and apparatus which 
avoids these disadvantages. 

25 

SUMMARY OF THE PRESENT INVENTION 

The present invention is directed to a reagent dispensing and printing apparatus and method, wherein 
30 the apparatus comprises a transducer operative to eject a substantially uniform quantity of reagent in a 
precise predetermined direction. 

According to one preferred embodiment of the present invention used in dispensing reagent fluids, a 
jetting tube is concentrically located with a piezoelectric transducer. The jetting tube comprises an orifice at 
one end and a reagent receiving aperture at the other end. The receiving end of the jetting tube is 
35 connected to a filter which is in turn connected to a reservoir containing a selected reagent. A jetting control 
unit supplies an electrical pulse of short duration to the transducer in response to a command issued by a 
computer. The electrical pulse causes the volume defined by the jetting tube to expand by an amount 
sufficient to intake a small quantity of reagent fluid from the reservoir. At the end of the pulse duration, the 
transducer de-expands propelling a small quantity of the reagent fluid through the orifice and into a fluid 
40 recepticle. If desired, additional droplets may be deposited in the recepticle or the recepticle aligned with an 
additional jetting tube for receiving an additional reagent fluid. 

An additional preferred embodiment of the present invention may be used for printing reagent fluids 
onto a print medium. In this embodiment, the jetting tube is aligned with the printing medium such that the 
propelled droplet impacts a precise position on the medium. The jetting tube or print medium may then be 
45 repositioned and another droplet expelled from the jetting tube. The process may be repeated until a 
desired configuration of the reagent fluid is printed on the medium. 

One advantage of the present invention is that precise minute quantities of reagent fluid may be 
dispensed or printed in a reproducible manner. Additionally, the method and apparatus may be used to 
emit droplets of fluids having a wide range of reagent fluid viscosities and surface tensions. The reagents 
so do not in general have to be specially adapted for use with the present invention. 

The invention itself, together with further objects and attendant advantages, will best be understood by 
reference to the following detailed description, taken in conjunction with the accompanying drawings. 
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BRIEF DESCRIPTION OF THE DRAWINGS 

FIGURE 1 is a schematic representation of a first preferred embodiment of the present invention 
showing the use of multiple jetting heads to meter and dispense reagent fluid. 
6 FIGURE 2a is a perspective view of a first preferred embodiment of the jetting head of the present 

invention. 

FIGURE 2b is a cut-away perspective view of the preferred embodiment of Fig, 2a taken along lines , 
2b-2b with the contact pins removed. 

FIGURE 2c is a sectional representation of the preferred embodiment of Fig. 2a taken along lines 2c- 

70 2c. 

FIGURE 2d is a sectional representation of the preferred embodiment of Fig. 2c taken along lines 2d- 

2d. 

FIGURE 2e is a sectional representation of the jetting tube and transducer of the preferred 
embodiment of Fig. 2b taken along lines 2e-2e. 
75 FIGURE 3 is a schematic representation of a second preferred embodiment operating in the drop on 

demand mode as a reagent printing system. 

FIGURE 4 is a schematic representation of a third preferred embodiment operating in the continuous 

mode as a reagent printing system. 

FIGURE 5a is a schematic representation of a portion of the jetting head control unit showing the 

20 LED strobe circuit. 

FIGURE 5b is a schematic representation of a portion of the jetting head control unit showing the 
high voltage power supply circuit. 

FIGURE 5c is a schematic representation of a portion of the jetting head control unit showing the 

print control circuit. 

25 FIGURE 5d is a schematic representation of a portion of the jetting head control unit showing a 

portion of the print pulse generator. 

FIGURE 5e is a schematic representation of a portion of the jetting head control unit showing an 
additional portion of the pulse generator. 

FIGURE 6a is a perspective view of a second preferred erhbodiment of the jetting head of the 
so present invention. 

FIGURE 6b is an exploded view of the preferred embodiment of Fig. 6a. 

FIGURE 7 is a sectional representation of a third preferred embodiment of the jetting head of the 
present invention. 

FIGURE B is a sectional view of a symmetrical portion of a fourth preferred embodiment of the jetting 
35 head of the present invention. 

FIGURE 9 is a graph of the drop mass of the emitted droplets as a function of emission frequency for 
several fluid viscosities. 

FIGURE 10 is a graph of the velocity of the emitted droplets as a function of frequency for several 
fluid viscosities. 

40 FIGURE 11 is a graph of the total weight of fluid emitted as a function of the number of emitted 

droplets for a given fluid. 



DETAILED DESCRIPTION OF THE PRESENTLY PREFERRED EMBODIMENTS 

45 

Turning now to the drawings. Fig. 1 shows a schematic representation of a first preferred emoooiment 
of a reagent dispensing system generally represented as reference numeral 30. The dispensing sysiem 30 
comprises a plurality of reagent fluid reservoirs 200, a plurality of filters 300, a plurality of reagent jetting 
heads 400, a plurality of jetting head control units 500. an interface unit 600, a computer 700, transportation 
so unit 902, a plurality of fluid mixing cells 904 and a detection station 906. 

The reservoir 200 holds a selected quantity of reagent fluid for dispensing. The reservoir 200 is 
maintained at atmospheric pressure by suitaDle means such as an atmospheric vent. The reagent fluid is 
transferred from the reservoir 200 through the filter 300 to the reagent jetting head 400. The filter 300 is 
placed between the reservoir 200 and the jetting head 400 to ensure that any particular foreign matter in the 
55 reagent fluid is trapped before entering the jetting nead 400. 

The plurality of jetting heads 400 and the detection station 906 define a processing path. Each jetting 
head 400. which is described in detail below, ejects uniformly sized droplets 2 of reagent fluid. Tne droplets 
2 are propelled, with controlled velocity and direction, towards a selecting mixing cell 904 positioned along 
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the processing path by the transportation unit 902. The mixing cells 904 are comprised of non-reactive 
material and function as minute holding tanks for the dispensed reagent fluid. 

The plurality of jetting heads 400, shown in Fig. 1, are positioned sequentially along the processing 
path. Alternately, some or ail of the plurality of jetting heads 400 may be positioned with respect to the 
5 transportation unit 902 such that the heads 400 direct the droplets 2 into a selected mixing cell 902 
simultaneously. 

The jetting heads 400 and the transportation unit 902 are controlled by the computer 700. The 
computer 700 issues commands to an interface unit 600 which is electrically connected to the transportation 
unit 902 and to the jetting head control unit 500. The interlace unit 600 is of conventional design and is 
70 used to control the transfer of information between the computer 700 and the jetting control unit 500. The 
interface unit 600 is also used to control the transfer of information between the computer 700 and the 
transportation unit 902. 

A first embodiment of the reagent jetting head is shown in Figs. 2a - 2e and generally represented by 

numeral 400. The jetting head 400 comprises a two piece symmetrical housing 402, 404. The housing 402, 
75 404, when assembled, is adapted to form an orifice aperture 406, an air vent and reagent supply channel 

410 and a transducer chamber 403, shown in Fig. 4b. Four screws 408. adapted to respective housing 

screw apertures 416, hold the housing 402, 404 in an assembled configuration. 

The jetting head 400 further comprises a jetting tube 432, a piezo-electric transducer 434 and a reagent 

fluid supply tube 430. The jetting tube 432 defines a tapered orifice 433 at one end and a fluid receiving 
20 aperture 431 at the other end for expelling and receiving fluid, respectively. The piezo-electric transducer 

434 is cylindrically shaped and secured concentrically about the mid-region of the jetting tube 432 with 

epoxy or other suitable means. 

The piezo-electric transducer 434, shown in Fig. 2e, defines a first and second end and comprises a 

section of cylindrically shaped piezeo-electric material 435. An inner nickel electrode 437 covers the inner 
25 surface of the cylinder 435. The electrode 437 wraps around the first end of the cylinder 435 a sufficient 

distance to enable electrical connection external to the cylinder 435. 

A second nickel electrode 436 covers the majority of the outer surface of the cylinder 435. The second 

electrode is electrically isolated from the first electrode 437 by an air gap at the face of the second end of 

the cylinder 435 and by an air gap on the outer surface of the cylinder 435 near the first end. When an 
30 electrical pulse is applied to the first and second electrodes 437, 436 a voltage potential is developed 

radially across the transducer material 435. The voltage potential causes the radial dimensions of the 

transducer 435 to change, which causes the volume defined by the transducer 434 to also change. 

The jetting tube 432 is positioned in the transducer chamber 403 such that the receiving end 431 

extends beyond the rearward end of the transducer 434. The receiving end 431 of the jetting tube 432 is 
35 inserted into one end of a reagent supply tube 430. The supply tube 430 is sealingly held to the jetting tube 

432 by concentric teeth 412 formed by the housing sections 402, 404. The teeth 412 not only seal the 

supply tube 430 to the jetting tube 432. but. also, seal the supply tube 430 to the housing 402, 404. 

The second end of the supply type 430 passes through the channel 410 and into a reagent reservoir 

200. The reservoir 200 contains the reagent fluid to be dispensed by the jetting head 400. As the reagent 
40 fluid is dispensed, air is supplied to the reservoir 200 through the channel 410 to prevent the creation of a 

vacuum in the reservoir 200. The reservoir 200 is releasably attached to the housing 402, 404 and held in 

place by frictional forces. A reservoir cap 202 is flexibly attached to the reservoir 200 and adapted such that 

the cap 202 may be used to secure the opening in the reservoir 200 when the reservoir 200 is disengaged 

from the housing 402, 404. 

45 The position of the jetting tube 432 defines the horizontal plane of the jetting head 400. The jetting tube 
432 and the transducer 434 are held in a pre-defined vertical relationship with respect to the housing 402, 
404 by means of two upper vertical alignment pins 418 and two lower vertical alignment pins 418. The two 
upper vertical alignment pins 418 extend horizontally from the housing section 402 into the transducer 
chamber 403. Similarly, the two lower vertical alignment pins 418 extend horizontally from the housing 

so section 404 into the transducer chamber 403. Each vertical alignment pin 418 is formed integrally with the 
respective housing sections 402, 404. 

The jetting tube 432 and the transducer 434 are held in a predefined horizontal relationship with respect 
to the housing 402, 404 by means of four horizontal alignment pins 424. Two of the horizontal alignment 
pins 424 extend horizontally from the housing section 402 approximately midway into the transducer 

55 chamber 403. Similarly, two of the horizontal alignment pins 424 extend horizontally from the housing 
section 404 approximately midway into the transducing chamber 403. Each horizontal alignment pin 424 is 
formed integrally with the respective housing section 402, 404. The alignment pins 418, 424, sealing teeth 
412 and orifice aperture 406 are aligned and adapted to hold the jetting tube 432 and transducer 434 such 
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that the orifice 433 of the jetting tube 432 extends into the orifice aperture 406. 

An electrical transducer activation pulse is supplied to the piezo-electric transducer 434 from the jetting 
head control unit 500 by means of two contact pins 422. A quantity of fluid will.be dispensed from the 
jetting tube for each applied activation pulse. The activation pulse can be produced by a variety of / 
s conventional circuits or commercially available units. Therefore a detailed description, of such a circuit will 
not be provided. However, a circuit for producing a series of activation pulses is provided in the description 
of the printing embodiment below. Due to the dif fering constraints involved in dispensing and printing, the i 
circuit in the printing embodiment is not required to produce only a single pulse. However, one skilled in the 
art could, if desired, modify the circuit to produce a single pulse on demand for use in the dispensing 

io embodiment. * 
Each contact pin 422 defines an enlarged head 423 which is adapted to contact the respective first and 
second electrodes 437, 436 located on the outer surface of the transducer 434. Two contact pin holders 
414, integral with the housing 402, 404, are positioned to hold the respective contact pins 422 under the pin 
heads 423 such that each pin head 423 electrically engages the appropriate electrode 437, 436 of the 

75 transducer 434. Two contact pin engaging posts 420 extend from the housing 402, 404 opposite the contact 
pin holders 414 to engage and hold the contact pins 422 against the contact pin holders 414. The ends of 
the contact pins 422 opposite the pin heads 423 extend through the housing 402, 404 by means of contact 
pin apertures 421. Since the housing sections 402, 404 are formed symmetrically to one another, the 
contact pins 422 may be optionally attached above the transducer 434. 

20 in operation, the reservoir 200 containing reagent fluid is fastened to the jetting head 400 such that the 
fluid supply tube 430 extends into the reagent fluid. The filter 300 may be fitted to the free end of the 
supply tube 430 or positioned inside the reservoir 200. Air is supplied through the channel 410 around the 
supply tube 430 to prevent the reservoir 200 from falling below atmospheric pressure. The air is prevented 
from entering around the supply tube 430 and into the transducer chamber 403 by the seal created 

25 between the sealing teeth 412 and the supply tube 430. The jetting tube 432 may be primed by slightly 
pressurizing the reservoir 200 to cause the reagent fluid to travel through the supply tube 430 and into the 
jetting tube 432. Once primed, the fluid is prevented from substantially withdrawing from the jetting tube 
432 by the surface tension of the reagent fluid at the orifice 433. 

The transducer activation pulse is conducted to the contact pins 422 of the jetting head 400. The 

30 contact pins 422 communicate the high voltage pulse to the electrodes 437, 436 of the transducer 434 with 
polarity such that the concentrically mounted transducer 434 expands. The rate of expansion is controlled 
by the rise time of the high vottage pulse which is preset to generate a rapid expansion. The expansion of 
the transducer 434 causes the jetting tube 432. which is epoxied to the transducer 434, to also expand. The 
expansion of the tube 432 generates an acoustic expansion wave interior to the tube 432 which travels 

35 axially towards the orifice 433 and .towards the fluid receiving aperture 431. When the expansion wave 
reaches the orifice 433, the reagent fluid is partially drawn inwardly. However, the surface tension of the 
fluid acts to inhibit substantial inward fluid movement. 

When the expansion wave reaches the end 431 of the tube 432, the expansion wave is reflected and 
becomes a compression wave which travels towards the center of the piezo-electric tube 434. The high 

40 voltage pulse width is adapted such that when the reflected compression wave is beneath the piezo-electric 
tube 434, the high voltage pulse falls, resulting in a de-expansion of the transducer 434 and the jetting tube 
' 432. This action adds to the existing acoustic compression wave in the interior of the jetting tube 432. The 
enhanced compression wave travels toward the ori fice causing reagent fluid to be-dispensed from the tube 
432. The fluid is propelled from the orifice 433 as a small droplet 2 and deposited in the selected mixing 

45 cell 904 positioned by the transportation unit 902. One droplet 2 is dispensed for each transducer activation 
pulse. This mode of dispensing is referred to as the drop on demand mode. 

In some instances, the droplet 2 may be accompanied by at least one smaller satelite droplet. However, 
even ff satelite droplets are present, the volume and velocity of the reagent droplets 2 are highly 
reproduceable. This reproduceability allows for precise dispensing of uniform, controllably sized droplets 2 

so of reagent fluid into the mixing cell 904. * 
The droplets 2 of reagents impact the mixing cell 904 with sufficient force and volume to cause fiuidic 
mixing of the reagents. Once the desired amounts of the selected reagents ere deposited in the selected 
mixing cell 904. mixing cell 904 is transported to the detection station 906 where the mixed reagents may 1 
be extracted for use or analyzed for assay results. 

55 The dispensing system 30 provides numerous advantages based upon the ability of the reagent jetting 
head 400 to rapidly and reproduceably eject uniform quantities of a wide range of reagents. Tne reaction 
times of some chemical processes are dependent upon the volume of tne reagents used. The ability of the 
dispensing system 30 to dispense such minute amounts of reagents thereby reduces the processing time 
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of certain chemical assays. Furthermore, some chemical assays require a wide range of dilution ratios. 
Many conventional dispensing systems are unable to dispense the reagents in volume small enough to 
make the desired assay practical. The dispensing system of the pres ent invention overcomes this 
disadvantage. 

5 In addition to dispensing reagent fluids, certain embodiments may be used for precision printing of 
reagents onto a printing medium such as filter paper to produce an assay test strip. A printing system 10 
using the present invention is represented in Fig. 3. Structure similar in form and function to structure 
described above will be designated by like reference numerals. The printing system 10 comprises a 
reagent fluid reservoir 200, a filter 300, a reagent jetting head 400, a jetting head control unit 500, an 

jo interface 600, a computer 700, and an x-y plotter 800. 

The x-y plotter 800 is a commercially available pen plotter, mechanically modified in a conventional 
manner such that the pen is replaced with the jetting head 400. The general operation and structure of the 
plotter 800 will not be described in detail. The plotter 800 accepts commands from the computer 700 thru a 
standard RS-232 serial interface contained within the interface unit 600. The plotter 800 processes the 

75 commands and produces control signals to drive an x-axis motor (not shown) and a y-axis motor (not 
shown). The x-axis motor is used to position the jetting head 400 and the y-axis motor is used to position a. 
drum (not shown) to which the printing target 1 is attached. 

The plotter 800 produces a pen down signal PENDN. This signal is applied to the control unit 500 and 
indicates that the plotter 800 is ready to begin a printing operation. 

20 The control unit -500 also receives control signals from the interface * unit 600. These signals include 
signals HIGHER*, LOWER* to control the magnitude of the pulse applied to the transducer 434; a reset 
signal RST to reset the control unit 500; and a series of print signals PRT. The generation of these signals 
will not be described in detail since their production is performed by the conventional interface unit 600. 
The jetting head 400 and fluid supply system 200. 300 are initialized and operate substantially as 

25 described above. The jetting head control unit 500, shown in Figs. 5a - 5e comprises a print control circuit 
510, a pulse generator 530, a high voltage supply 540, and a strobe pulse generator 560. The control unit 
500 also comprises a power supply. However, since the power supply is of conventional design it will not 
be shown or described in detail. 

The print control circuit 510 receives the pen down signal PENDN from the plotter 800 and comprises a 

so transistor Q100, a one-shot circuit U100. two NAND-gates U101, U102, a line decoder multiplexer U107 and 
four inverters U103-U106. The pen down signal PENDN is applied to the base of the transistor Q100 by 
resistors R100, R101 and diode D100. The emitter of transistor Q100 is tied to ground and the collector is 
connected to the +5 volt supply by resistor R102. 

The one-shot U100 comprises inputs A, B and an output Q. The B input of the one-shot U100 is 

35 connected to the collector of the transistor Q100 and the A input is tied to ground. The time period of the 
pulse produced by the one-shot U100 is determined by a resistor R104, a variable resistor R105 and a 
capacitor C100. The output O of the one-shot U100 is combined with the collector output of the transistor 
Q100 by the NAND-gate U101 and then inverted by the NAND-gate U102. The circuit is operative to 
produce an adjustable delay in the application of the pen down signal PENDN to the control unit 500. 

40 The line decoder U107 is circuited to function as a 3 input AND-gate. The output of the NAND-gate 
U102 is applied to the first input of the decoder U107; the print signal line PRT comprising a series of 
pulses from the interface unit 600 is applied to the second input; and a jetting head ON/OFF signal from 
switch S1 is applied to the third input. The inverter U106 inverts the output of the line decoder U107 to 
generate the print control signal PRT and the inverters U103-U105 invert the control signals LOWER'. 

45 HIGHER*, and RST signals, respectively. 

The high voltage supply 540, shown in Fig. 5b, provides +175 volts DC to produce a maximum pulse 
of +150 volts peak to peak at the reagent jetting head 400. The high voltage supply 540 comprises 
differential amplifier U12 and transistors Q1, 02, Q13, Q14. A stable reference voltage of -2.5 volts DC is 
produced at the junction of a reservoir R13, connected to the -15 volt supply, and a diode CR6. connected 

so to ground. The reference voltage is combined with a resistor R14 to produce an adjustable, stable voltage 
reference for the amplifer U12. The reference voltage is applied to the inverting input of the amplifier U12 
through a resistor R11. The noninverting input of the amplifier U12 is connected to ground by a resistor 
R12. The amplifier U12. in combination with a feedback resistor R10, produces an output signal proportional 
to the difference of the voltage reference signal and the ground potential. 

55 The output of the amplifier U12 is applied to the base of the transistor Q2 whose collector is connected 

to the +15 volt supply. The signal produced at the emitter of the transistor Q2 is applied to the base of the 

transistor Q1 through resistors R8. R6, R5, a transformer L1 and diodes CR4, CR2. CR1 . The emitter of the 
transistor Q1 is connected to ground and the collector is connected to the +15 voltage supply through the 
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transformer L1. A diode CR3 connects the collector of the transistor Q1 to the junction, of the resistor R5 
and the diode CR4. The transistor Q1 is biased for proper operation by resistors R7. R6. R5. The resistor 
R7 and a capacitor C22 connect the junction of the resistor R8. R6 to the + 15 voltage supply. 

The transistor 01 and the transformer L1 form a "flyback" blocking oscillator. Any increase in current 

5 supplied by the transistor Q1 produces an increase in energy transferred through the secondary winding of 
the transformer L1 and diode CR5. Therefore, an increase in current supplied by the transistor Q1 results in 
an increase in power available to the high voltage output. The diodes CR1-CR4 form a "Baker clamp" which , g 
prevents transistor Ql from saturating. The clamp thereby avoids transistor storage time. 

The diode CR5 is connected to a multiple pi filter formed by the inductors L3, L2, capacitors C24, C21, 

w C41 and resistors R29. The multiple pi filter attenuates ripple and switching spikes in the signal supplied to f 
the transistor Q13 which produces the high voltage output V+ +. A resistor R64 connects the base of the 
transistor Q13 to the emitter and to the resistor U29. The base is also connected to the collector of the 
transistor Q14 by a resistor R65. The base of the transistor 014 is connected to the +15 volt supply by a 
resistor R67 and to ground by a resistor R66. The emitter of the transistor Q13 provides a signal HV 

n SENSE which is fed back to the inverting input of the amplifier U12 through a resistor R9. The high voltage 
output V+ + is produced at the collector of the transistor Q13. The proper biasing of the transistor Q13 is 
provided by resistor R64 and the biasing circuit comprising the transistor Q14, resistors R67, R66, R65. 

The pulse generator 530, shown in Figs. 5d, 5e, comprises an opto-isolator U18, a one-shot U23, a 
digital to analog (D/A) converter U30 and two binary counters U24, U25. The pulse generator 530 accepts 

20 control signals PRT\ LOWER', HIGHER', RST and produces the activation pulse which is applied to the 
transducer 434. In normal operation, the PRT control signal is supplied to the opto-isolator U18 by a jumper 
JMP between contact points E5. E6. The opto-isolator U18 is of conventional design and comprises a light 
emitting diode (LED) circuit and a photo-element circuit. A resistor R15 operates as the load resistor for the 
LED circuit of the isolator and a capacitor C25 suppresses transient noise on the voltage supply to the 

25 isolator U18. The output of the isolator U18 is applied to one input of the one-shot U23 whose time constant 
is adjustably determined by resistors R38, R25 and a capacitor C30. The pulse from the non-inverting 
output of the one-shot U23 is fed to the base of a transistor 09. A resistor R39 sets the approximate base 
■ current of the transistor Q9 which is used as a level shifter for converting the CMOS signal level to the + 15 
volt DC signal level. 

30 The control of the rise and fail rates of the pulse generator 530 is accomplished by directing a pair of 
current source transistors 011, Q12 to charge and discharge a capacitor C57. The transistor Q11 is 
operative as a source of current and the transistor 012 is operative as a sink for current. A transistor Q10 
controls the level of the current by applying an appropriate bias current through a resistor R56 to the base 
of the transistor Q11. The biasing of the transistors Q11. 012 is critical to the proper rise and fail rates. 

35 Therefore precision voltage references CR13. CR15 are used to provide respective bias reference voltages. 
A temperature compensation network is formed from zener diodes CR14, CR16 and resistors R55, R54 to 
maintain stable operation of the transistors 011. 012, respectively. The variable resistors R49. R52 may be 
used to adjust the fall time and rise time, respectively, of the output puise applied to the reagent jetting 
head 400. A plurality of resistors R45. R46, R47, R48. R49, R51, R52. R53, R56. R57, R58 are used to 

40 properly bias the transistor Q10, 011, Q12 and capacitors C55, C60 are circuited to maintain stability of the 
circuit 

The impedance of the output stage of the rise and fall circuitry Q10. 011, Q12 is very high. With such a 
high impedance, circuit elements attached to the capacitor C57 could affect the linearity of the rise and fall 
time constants. Therefore, an FET input operational amplifier U32 is used as an impedance interface. The 
45 amplifier U32 is configured in the nonmverting mode and circuited with capacitors C58, C59 for stability. 

The output of the^impiifier U32 is applied to an inverting amplifier U31 by means of a resistor R62. The 
amplifier U31 inverts and conditions the pulse control signal with the aid of resistors R59, R60. Resistors 
R61, R63. connected to the -15 voltage supply, provide a means for adjusting the DC level offset of the 
amplifier U31 output signal. Capacitors C51. C52 are connected to enhance the performance and stability of 

so the circuit. * 
The output of the amplifier U31 is applied by means of a resistor R41 to the positive voltage reference 
signal input REF( + ) of the D/A converter U30. The negative voltage reference signal input REF(-) is tied to 
ground by a resistor R40. The D/A converter U30 produces output signals I0UT, lOUr which are » 
proportional to the difference between the positive and nega tive voltage reference signal inputs REF(+). 
55 REF(-). Capacitors C48, C49, C50 are connected to the D A converter U30 to enhance staoility. 

The D/A converter outputs I0UT, IOUT are also proportional to an 8-bit binary vaiue applied to inputs 
B1-BB. The binary value is supplied by the counters U24. U25 which are controlled by the function signals 
LOWER'. HIGHER* and RST. The LOWER' signal and the HIGHER* signals are applied to the count up and 
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count down inputs CU, CD of the counter U24 by means of opto-isolators U19, U20. The carry and borrow 
outputs CY, BR of the counter U24 are connected with the count up and count down inputs CU, CD ol the 
counter U25. The reset inputs RST of both counters U24, U25 receive the RST signal by means of an opto- 
isolator U21. Resistors R16, R17, R18 are used as load resistors for the LED circuits of the isolators U19, 

s U20, U21 and capacitors C26. C27, C28 are used to enhance the stability of the isolator circuits. 

The counters U24, U25 may optionaily be preloaded to the selected 8-bit binary value through input 
lines TP0-TP7. The input lines TP0-TP7 are normally biased to the logical high signal state by resistive 
network U22. The selected binary value is loaded into the counters U24, U25 by pulling the respective 
inputs TP0-TP7 low and applying an external, active low, load signal DCT LOAD to pin TP8. The load signal 

70 pin TPS is connected to the load inputs LOAD of the counters U24, U25 and conditioned by a clipping 
circuit comprised of . diodes CR9, CR10 and a pull-up resistor of the resistor network U22. 

The noninverted and the inverted outputs IOUT, IOUT are connected to the inverting and noninverting 
inputs of a differential amplifier U29. The output of the amplifier U29 is fed back to the invert ing input by a 
resistor R50. The amplifier U29 converts the current output of the D/A converter U30 to a voltage output. 

75 Capacitors C56 t C47 are provided to enhance circuit stability. 

The output of the amplifier U29 is applied to the noninverting input of the amplifier U28. The output of 
the amplifier U28 is fed back to the inverting input by means of a capacitor C46 and a resistor R37. The 
inverting input is also connected to ground by a resistor R36. To enhance the frequency response of the 
amplifier U28. a resistor R43 and a capacitor C54 are connected between the frequency compensation input 

20 FC and ground. An adjustable DC offset is provided by connecting the output offset inputs OF, OF with a 
variable resistor R42. The wiper of the resistor R42 is connected to the high voltage power supply output 
V++. 

The output of the amplifier U28 is also connected to the base of a transistor 04 and through diodes 
CR11, CR12 to the base of a transistor Q7. The transistor 04, 07, Q3 and resistors R3D-R35 form an output 
25 circuit capable of driving high capacitive loads at high slew rates and wide bandwidth. The variable resistor 
R31 may be used to set the maximum current through the bias network R30, R33 by measuring the voltage 
drop across resistor R35. 

The strobe generator 560 produces a strobe pulse and comprises transistors Q101-Q105 and a one- 
shot circuit U108. The strobe intensity is determined by the circuit comprising the transistors Q101-Q104 

3D and resistors R109-R115. The circuit is connected to the anode of the LED 900 and receives two inputs 
from the interface unit 600 to produce four levels of light intensity in the LED 900. 

The activation aand duration of activation of the LED 900 is determined by the one-shot U108 and the 
transistor Q105. The one-shot U108 comprises inputs A, B and an output Q. The strobe signal STROBE is 
applied to the B input from the interface unit 600. The duration of the one-shot U108 output pulse is 

35 controlled by the adjustable RC network R107, R108. The output Q is applied to the base of the transistor 
Q105 by resistor R108. The collector of the transistor 0105 is connected to the cathode of the LED 900 to 
draw current through the LED 900. 

The computer 700, control unit 500 and plotter 800 must be initialized. The initialization of the computer 
700 and the plotter 800 will not be discussed since these units are of conventional design and operation. 

AO To initialize the jetting head control unit 500, the computer 700 directs the interface unit 600 to issue a 
reset command. The reset signal RST is conducted to the control unit 500 whereupon the counters U24, 
U25 are cleared. The computer 700 then retrieves from its memory, or by conventional operator input, the 
desired digital setting for the D/A converter. This setting may also be calculated from data and may be 
tailored to specific sizes of jetting heads 400 or reagent fluids. The computer 700 then issues a series of 

45 commands, through the interface unit 600, to increment or decrement the counters U24, U25 to correspond 
to the desired binary setting. If the command directs that the counters are to be raised, then the HIGHER' 
signal is applied through the opto-isolator U20 to the count up CU input of the counter U24. Similarly, if the 
command directs that the counters are to be lowered then the LOWER* signal is applied through the opto- 
isolator U19 to the count down CD input of the counter U24. Since the carry and borrow outputs CY, BR of 

so the counter U24 are connected to the count up and count down inputs CU, CD, respectively, of the counter 
U25, the digital setting applied to the D/A converter U30 may range from 0 to 255. Alternately, the counters 
U24. U25 could be initialized to a desired setting by loading the binary value on the lines TP0-TP7 and 
strobing the EXT LOAD line. 

Once the control unit 500 and the plotter 800 are initialized, the printing cycle may begin. The computer 

55 700 issues a command to the interface unit 600 to produce the series of PRT signal pulses. The computer 
700 then commands the plotter 800 to print, for example, a line along a selected path. The plotter 800 
positions the jetting head 400 and target 1 and issues the pen down signal PENDN. The signal is delayed 
by the print control circuit 510 to ensure that the target 1 is properly positioned. At the expiration of the 
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delay, the signal is ANDed with the closed enable switch S1 and the series of print pulses PRT\ The result 
of the AND operation is the application of the PRT* pulses to the pulse generator circuit 530. 

The PRT signal is applied through the jumper, JMP to the opttnsolator U18 and then to the one-shot 
U23. The one-shot U23 produces a pulse signal which is then converted from CMOS signal levels to the 15 

5 volt DC signal level by the transistor Q9. The rise and tall circuitry comprising G10, Q11, Q12 converts the 
square wave pulse into a pulse having the rise and fall characteristics preset by the resistors R49, R52. The 
conditioned pulse is then amplified by the amplifier U32 and applied to the amplifier U31. 

The amplifier U31 converts the polarity of the conditioned pulse to that acceptable by the D/A converter 
U30 and supplies an adjustable DC offset. The DC offset is used to counteract possible distortion 

70 attributable to the amplifier U31. The distortion arises in that, for the amplifier U31 to be adequately 
responsive, a small degree of current must flow through the resistor R41. This current creates an offset 
condition at the output of the amplifier U29 which is then scaled by the D/A converter U30 in correspon- 
dence with the binary data. The resistor R63 allows a small amount of current to be applied to the amplifier 
U31 to control the offset voltage attributable to the current flowing through the resistor R41. 

75 The D/A converter U30 scales the difference between the inputs REF( + ), REF(-) using the binary data 
supplied to input lines B1-B8 to produce a current output pulse =-IOUT and a current inverted output pulse 
IOUT\ The two outputs IOUT, IOUT are fed to the amplifier U29 which convert the current outputs into a 
single voltage output. The scaled, conditioned pulse is then applied to the output circuit comprising the 
amplifier U28 and the transistors Q3. 04. Q5. Q6, Q7. The circuit produces a high voltage pulse with the 

20 aforementioned rise and fall characteristics to drive the piezo-electric transducer 434. 

The high voltage pulse is applied to the transducer 434 and causes a droplet 2 of fluid to be propelled 
onto the target 1. Since the pen down signal PENDN is still applied, additional droplets 2 are produced from 
the jetting head 400. The plotter 800 moves the jetting head 400 and target 1 along the desired path during 
the emission of the droplets 2 to produce the desired printed line. When the printing is complete, the plotter 

25 800 removes the pen down signal PENDN and the droplet emission stops. Of course it should be 
understood that dots, circles and the like could be produced by appropriate positioning of the target 1 and 
jetting head 400. 

The size and uniformity of the droplets 2. as well as the presence of any satelite droplets, may be 
observed with the aid of the scope 950 and the LED 900. The scope 950 and the LED 900 are positioned 

30 such that the droplets 2 pass between the scope 950 and tne LED 900 and within the focal range of the 
scope 950. The strobe pulse when applied to the LED 900 causes the LED 900 to momentarily flash. The 
timing of the activation and the width of the pulse may be adjusted such that the flash occurs when the 
fluid, expelled in response to the high voltage pulse, is between the scope 950 and the LED 900. The 
dispensed quantity of fluid may then be observed in flight or at or near the momement of separation from 

35 the orifice 433. Corrections based on tne observation may then be made to the system 10. . 

Since each droplet 2 is small in volume, the droplet 2 may be rapidly absorbed Dy the target. 1. thereby 
allowing rapid and precise placement of a variety of reagents on the target 1 with reduced drying time and 
reduced potential of fluidity mixing. In addition, the ability to place small droplets 2 in a precise manner 
enables the target 1 to be printed in a high density matrix with a variety of reagents as isolated matrix 

40 elements. 

In some printing applications, particula-ly when printing fluids of flow viscosity and surface tension, it 
may be desirable to force the fluid through the jetting tube 432 under pressure ana allow the vibrations 
produced by the transducer 434 to break the emitted fluid stream into precise droplets 2 Uncle- this mode 
of printing, the emission of droplets 2 can not be stopped by cessation of the tranducers activation ou'se it 

45 is therefore necessary to prevent fluid emission by other means. One preferred means of momentary 
stopping emission of the droplets is shown schem atically in Fig. 4. In this arrangement, structure simile 10 
structure represented in Fig. 3 in form and function, is represented by like reference numerals. 

The arrangement, generally represented by the numeral 20, includes a closed reagent recirculation 
system comprising a normally close three way valve 970. a sump 950 and a recirculation pump 980. In the 

so continuous mode, the reagent fluid is forced out the orifice 433 by hydraulic pressure and broKen into a 
series of substantially uniform droplets 2 by movement of the transducer 434. A regulated, filtered air 
supply 100 is used to pressurize the reagent fluid reservoir 200. The reagent fluid within tne reservoir 200 
may optionally be agitated by a magnetic stirer unit 990. This is especially useful for reagent fluids 
comprising suspended particles. 

55 The three-way valve 970 comprises a common channel, a normally open channel and a normally closed 
channel. The fluid is forced through the filter 300 and applied to the normally closed channel of the valve 
970. When the normally closed channel is closed, the normally open channel of the valve 970 functions as 
a vent for the reagent jetting head 400. The common channel is connected to the reagent supply tube 430 
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of the jetting head 400. The reagent supply tube 430 is also connected to the sump 960. 

In operation, the normally closed channel is opened by an appropriate signal supplied by the computer 
700 which also closes the normally open channel. When the normally closed channel is opened, fluid is 
permitted to pass to the sump 960 and to the jetting head 400. The sump 960 collects the reagent fluid not 

5 transferred to the jetting head 400. The sump 960 supplies the collected fluid to the inlet side ol the 
recirculating pump 980 which returns the fluid to the reservoir 200. The returned fluid is then mixed with the 
contents of the reservoir 200 and is available for recirculation. 

When operating in the continuous mode, rather than interrupt the continuous stream of print pulses to 
the jetting head 400, the printing may be momentarily stopped by closing the normally closed channel of 

70 the valve 970. The closing of the normally closed channel stops the flow of reagent fluid to the jetting head 
400 and allows the jetting head 400 to vent to atmospheric pressure. With the fluid supply blocked, the 
transducer 434 is unable to expel further droplets 2. Thus, if positioning of the target 1 by the plotter BOO 
requires a longer time interval than the time between droplet 2 emission, the computer 700 may close the 
normally closed channel of the valve 970. The plotter 800 may then position the target 1 or position a new 

is target 1 as desired. 

When printing, the active ingredient of the reagent is tailored to achieve a desired concentration per unit 
area on the target 1 . However, to a certain extent the final concentration per unit area can be adjusted by 
varying the density of the droplets 2 printed on the target 1 . The preferred embodiment is particularly well 
suited to this application due to its ability to print precise, discrete pels of reagent. 
20 A second preferred embodiment of the jetting head Is illustrated in Figs. 6a-6b and is generally 
represented as 400'. The jetting head 400' comprises housing formed into three sections 40V, 402*, 403'. 
The housing section 403' comprises a recessed region which forms the reagent fluid reservoir 200' when 
the housing section 403' is positioned against housing section 402. 

The jetting head 400' further comprises a piezo-electric transducer 434' and a reagent jetting tube 432' 
25 similar to those of the first embodiment. The jetting head 400' and the transducer 434' are most clearly 
shown in Fig. 6b. The jetting tube 432' defines an orifice 433' at one end and a reagent fluid receiving 
aperture 431' at the other end. The transducer 434' is mounted to the jetting tube 432' concentrically about 
the mid-region of the tube 432' with epoxy. 

The transducer 434' and the jetting tube 432' are positioned in channels 420', 418'. 416' located in the 
30 housing sections 402', 40V. The channel 41 6* comprises a plurality of sealing teeth 412' operative to 
engage and seal against the fluid receiving end 43 v of the jetting tube 432'. The channel 416* is connected 
to the reagent fluid supply channel 430'. The supply channel 430' is connected with the fluid reservoir 200 i 
by means of an aperture 431' through the housing section 402', shown in Fig. 6b. 

The reservoir 200' comprises a flexible reservoir lining 201' adapted to contain the reagent fluid. The 
35 lining 20V comprises one aperture which is connected to the housing 402' to allow the fluid to pass from 
the lining 201'. A vent (not shown), located in the housing 403', allows the space between the reservoir 200' 
and the lining 20V to be vented or pressurized. A filter 300' is positioned within the aperture 202 to trap 
unwanted particulate foreign matter. 

Electrical pulses are supohed to the transducer 434' by means of two contact pins 422'. The pins 422' 
40 are inserted through respective apertures 419' of the housing section 402' and respective apertures 42V of 
the housing section 403'. Two thin electrically conductive strips 410', 41V, shown in Fig. 6b. are used to 
connect the transducer 434' with the contact pins 422'. A protective shield 405' extends from the housing 
position 403' to partially isolate the protruding portions of the contact pins 422\ 

The function and operation of the jetting head 400' is similar to that of the jetting head 400 and 
45 therefore will not be discussed in detail. The collapsible inner lining 20V of the reservoir 200 allows the 
jetting tube 432' to be primed by pressurizing the reservoir 200' through the vent 205'. Once primed, the 
jetting head 400' may be used as described above in reference to the jetting head 400. 

The jetting head 400' provides an advantage in that the entire fluidic system is contained in one 
housing. Such containment allows for fast and efficient replacement of the jetting heads without fluid 
so contamination problems. 

A third preferred embodiment of the jetting head is shown in Rg. 7 and generally represented as 400". 
The jetting head 400" comprises a housing 403", a reagent fluid supply tube 406", a piezo-electric 
transducer 434" and an orifice plate 404'. The housing 403* defines a conically shaped fluid chamber 432". 
An orifice plate 404", defining an orifice 433". is fastened to the housing 403" such that the orifice 433" is 
55 located at or near the apex of the conical fluid chamber 432*. 

The fluid feed tube 406* is attached to the housing 403' and defines a supply channel 430". The supply 
channel 430* is in fluid communication with the fluid chamber 432" by means of a connecting channel 431*. 
The base of the fluid chamber 432' is formed by the disc-shaped transducer 434". The transducer 434* is 
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held in position by a hold down plate 402* attached to the housing 403*. The electrical connec tions to the 

transducer 434' are of conventional design and are therefore not shown. The housing 403' further 

comprises a threaded aperture 406" for mounting the jetting head 400". 

The jetting head 400" operates in a manner similar to the jetting heads described above. However, in 
5 this jetting head the transducer 434" is normally disk shaped. When the electrical pulse is applied, the 

transducer 434* bends slightly, thereby altering the volume of the conically shaped jetting chamber 432". 

The change in volume of the chamber 432" causes the expulsion of fluid through the orifice 433" and the 

intake of fluid through the supply channel 430" as described in reference to the jetting head 400. 

A fourth preferred embodiment of the jetting head is shown in Fig, 8 and is generally represented as 
70 400" . The jetting head 400* Is very similar in form and function to the jetting head 400 and will not be 

described in detail. The jetting head 400" comprises two symmetrical housing sections. The sections may 

be connected together by means of apertures 409" and screws, not shown. When assembled, the housing 

sections 404", 402" form a T-shaped supply channel 410" . 

In operation, the jetting head 400" functions in a manner similar to the jetting head 400. The jetting 
75 head 400" is especially suited for use in the continuous mode, but may also be used in the drop on 

demand mode. In the continuous mode, the fluid is circulated continuously through the supply channel 430" 

allowing the jetting tube 432" to withdraw as much fluid as required. 

By way of illustrating and with no limitations intended the following information is given to further 

illustrate the above described embodiments. The computer 700 is an IBM Corporation Personal Computer 
20 with 640 kbytes of RAM memory. The interface unit 600 is a Burr Brown interface unit model number PC 

20001. The plotter 800 is manufactured by Houston Instrument as model number DMP-40. Communication 

between the plotter 800 and the interface unit 600 is performed through a standard asynchronous serial 

communication port. 

The electrical pulse applied to the jetting head 400 to activate the transducer 434 comprises a rise time 
25 of approximately 5 usees, a tall time of approximately 5 usees and a pulse width of approximately 35 usees. 
When the transducer 434 is operated in the drop on demand mode, the voltage potential of the pulse is 60 
volts plus or minus 10 volts and the pulse frequency can be up to A khz. When the transducer 434 is 
operated in the continuous mode, the voltage potential of the pulse is 30 volts plus or minus 10 volts and 
the pulse frequency can be up to 10 kh2. 
30 The jetting tube 432 is manufactured from a pyrex glass tube and measures .027 inches outside 
diameter and .020 inches inside diameter. The tube is drawn to a closed taper in an electric furnace. The 
tapered end is then cut and ground to a desired orifice opening of .002 to .004 inches in diameter. The tube 
is cut to a final length of .945 inches in the case of the dispenser embodiment and ultrasonically cleaned in 
acetone. After being cleaned and dried the large end of the tube is fire polished, if desired, the orifice end. 
35 of the tube may receive a coating, such as a hydrophobic polymer, to enhance droplet separation from the 
tube. 

The supply tube 430 is formed from .023 inch inside diameter and .38 inch outside diameter 
polyethylene tubing produced by Intramedic Corp. as model number #14 170 11B. During assembly, one 
end of the tubing is stretched over a warm tapered mandrel. The stretched end of the supply tube 430 is 

40 then inserted over the large fire polished end of the jetting tube 432. The assembly is then cleaned and 
baked in a circulating air oven at 50°C. for 10 minutes. 

The transducer 434 was purchased from Vernitron of Cleveland. Ohio as model number PZT-5H. The 
electrodes 437, 436 are comprised of nickel and are separated from each other on the outer surface of the 
transducer by approximately .030 inches. The jetting tube 432 is inserted into the cylindrical piezo-electric 

45 tube 434 and secured with epoxy manufactured by Epoxy Technology of Bellenca. Massachusetts as model 
number 301. The epoxy is apDiied at the junction of the tube 432 and transducer 434 with a syringe. The 
epoxy flows along the tube 432 inside the transducer 434 by capillary action. The assembly is then baked 
in a circulating air oven at 65 °C. for one hour to cure the epoxy. 

The contact pins 422 are secured to one of the housing sections 402, 404 with a drop of epoxy. The 

so transducer jetting tube 434. 432 is placed in the housing such thai the orifice end 433 of the tube 432 
protrudes approximately .030 inches from the housing 403, 404. A drop of silver epoxy is placed between 
each contact pin 422 and the transducer 434 to ensure a secure electrical connection. Epoxy is also applied 
to the junction of the housing 402, 404 and supply tube 430. The other section of the housing 402, 404 is 
then screwed into place. 

55 The periphery of the housing 402, 404 is sealed with a capillary sealer such as cyclohexanone. Epoxy 
is then added around each contact pin 422 and around the orifice end 433. The assembly is then baked in 
a circulating air oven at 65°C. for one hour. 

The filter 300 is formed from a polyester mesh with 30 urn pores and positioned in a polypropylene 
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housing. The air pressure supplied to the reservoir 200 during continuous printing operations is regulated at 
approximately 10 to 30 psi. 

The reagents used have the following characteristics: 
Printing (drop on demand mode): 
Fluid viscosity range: 1 • 30 centipoises 
Fluid surface tension: 20 - 70 dyne/cm 
Printing (continuous mode): 
Fluid viscosity range: up to 50 centipoises 
Fluid surface tension: not measured 
Dispensing (drop on demand mode):. 
Fluid viscosity range: 2 - 30 centipoises 
Fluid surface tension: 20 - 70 dyne/cm 

A measure of the performance and selected operating characteristics for a typical jetting head are 
presented in Figs. 9-11. Fig. 9 is a graph of the mass of a droplet as a function of droplet emission 
frequency for three fluids. The viscosity of the fluids were 1, 5 and 24 centipoise and the transducer 
excitation pulse width was 35 microseconds. As shown in Fig. 9, the higher fluid viscosity results in a more 
stable operating performance of the jetting head. Fig. 10 is a graph of droplet velocity as a function of 
droplet emission frequency for fluid viscosities of 1 , 5 and 24 centipoise. The log of the total fluid weight as 
a function of the log of the number of droplets emitted is shown in Fig. 1 1. The fluid used has a viscosity of 
2 centipoise. a surface tension of 20 dynes/cm. and a density of .8 grams/cc. The transducer excitation 
pulse was 80 volts and the excitation frequency was approximately 711 Hz. 

Some blood typing reagents and some allergen reagents have very low viscosities and surface 
tensions. Although in some cases viscosity modifiers, such as glycerol, dextran, glucose, and the like, may 
be added to increase the viscosity, a few reagents are adversely affected by such modifiers. 

Developing stable and reproduceable demand mode jetting is difficult with very low viscosities. 
Although droplet emission can be established at some fundamental frequencies, the droplets dispensed 
may have small satelite droplets which reduce the accuracy for metering and dispensing applications. 
However, even with the satelite drops, sufficient reagent is adequately delivered for most print applications 
without a substantial decrease in print quality. 

Glycerin may be used as a viscosity modifier to improve jetting reliability and to prevent obstruction of 
the orifice arising from evaporation of the reagent fluid components. Glycerin has been found especially 
beneficial for those reagents containing particulate material. The evaporation of the fluid component results 
in a concentration of glycerin located at the orifice. The plug of glycerin substantially prevents further 
evaporation of the reagent fluid. During the next activation cycle of the transducer, the plug of glycerin is 
expelled from the orifice. 

When operating in the dispensing mode the volume of the droplets can be varied to substantially 
uniformly contain from 100 pico-liters to 1 micro-liter. The droplets can be produced at a rate of 
approximately 1 kh2 to 8 khz. When operating in the printing mode the size of the pel made by each 
droplet measures approximately .001 -.01 2 inches in diameter. 

A copy of the program used in the computer 700 for a printing operation is attached hereto as Appendix 
A. The values, manufacturer and manufacturing part number of the circuit components of the jetting control 
unit 500 are substantially as follows: 
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70 



75 



20 



25 



30 



35 



40 



45 



50 



Ref. Numeral 
of Component 

R39, 45-48,57, 

58 
R66 
R3 
R34 
R50 

RI3, 23,36, 40, 

41 
R56 

R8 
R6 

R7, 12,25 
R67 

R51,53 

R29 

R61 

R15-18, 26-28, 

54,55,64 
R62 

R30,33 

R21 

R19 

R35 

R43 

R60 

R37 

R9 

Rll 

U2, 11, 14, 16,22 
C21, 41,45 
C24 

CIO 

CI, 2, 3, 55, 60 

C53 

C36 



Description 
and Value 



RES . 10KOHM5jWATT5%C . F . 
RES . 1500EH3»WATT5%C . F . 
RES . 1 SKOEMsjWATTS %Z . F . 
RES . 16K0HM*WATT5%'C . F . 
RES. 2.. 4K0HM 1 <WATT1! S !'; . F . 

RES . 2 . 4KOHM!ijWATT5%C . F . 
RES . 20KOHNJjWATT5° e C . F . 

RES . 2200KK*WATT5? e C . F . 
RES . 270ffi-:lWATT5^C . C . 
RES . 2KOH!^WATT£?eC . F . 
RE S3 . 6KC«H2sV;ATTS%C . F . 
RES . 3 . 9KOEMi3WATT£%: 
RES . 30OKOHMt WATT5%: 
RES . 3 OKOH^WATTl^-: . 



Manufacturer 
and Part No. 



. F. 
r 



RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
CAP 
CAP 



. 4 . 7KOK-!^WATT5?;C . F . 

. 45 . 3KOHWyWATTl!3S • F 
,470HI%WATT5%C.F. 
..470OKM3sWATT£?;C . F . 
. 47KOH!-l*sWATT5?;C . F . 
.510OKM3sWATT5 6 s C.F. 
. 5 . 2KCfS^WATT5 0 c C . F . 
. 7 . 5KOHHVWAT?5%C . F . 
, 75KOHMfeWATT5%C . F . 
,76KOHr-5ijVfATTl%K.F. 
.B200HK^WATT5%C.F. 
.DIP NETWRK. 47KOHM 
,AXIALIMF@250VDC 
.AX:AL220KF@250VDC 



CAP. AXIAL ALUM ELEC. 

4700 OMF§25VDC 
CAP. RADIAL DIPPED TANT. 

10MF@25VDC 
CAP . RADIAL DIPPED TAUT. 

1MF@35VDC 
CAP. RADIAL DIPPED TANT. 

47MF@10VDC 



DALE RL079242G 



DALE RL079303G 



DALE RN55D4532F 



DALE RN60D7682F 

CT9 761-1R47K 
MALLORY ttTC56 
MALLORY 

LP2219250C7P3 
MALLORY 

TCG472 UC2 5NI C 
KEMET 

. T35OE106MO25AS 
KEMET 

T35OA105K035AS 
KEMET 
T350H566MC10AS 



55 
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Re*^ Numeral 


Description 

and Valuo 


Manufacturer 
and Part No. 




hlp PiDTAL SILV MICA 


KAHGAN 




U- W v« a. 1> W W w V w 


SD5101J301 


C57 


CAP RADIAL SILV MICA 


KAHGAN 

A W MAW* *A » 






SP12200J301 






KAHGAN 






SP12390J301 






KEMET 






C315C102K1R5CA 


7*5 C ft 


CAP RADIAL X7R MLC 


KEMET 




. 022MF<§>50VDC 


C315C223K5R5CA 


C30, 35,37 


CAP. RADIAL Z5U MLC 


KEMET 


.015MF@50VDC 


C315C153K5R5CA 


C4,7 


CAP. RADIAL 25U MLC 


KEMET 


20 


.01MF@50VDC 


C315C103K5R5CA 


C4, 5, 6, 9, 11-19, 


CAP. RADIAL 25U MLC 


KEMET 


22,23,25-28 


.22MF@50VDC 


C322C224M5U5CA 


C31-34,37,42,43 







47, 48, 50-52 
25 CSS, 58, 59 

C46 

CR7,8,9,10, 
11,12,17 
30 CR1 ,2,3,4 
CR5 

CR6,13,15 
CR14,16 
U6. 13, 15, 17 
35 Q2,9,12 
08,10,11 
04 
Q7 
Ql 
40 Q3 , 14 
013 
US, 27 
U23,26 
U7-10 
« U30 
U24,25 
U28 
Ul 
U4 
U3 

U12, 29, 31,32 
U18, 19,20,21 
R24,42,63 
R38,49,52 
R20 



50 



55 



R14,31 



CAP . VARI . 2-12PF. 
DIODE SIL. 

DIODE SIL. FAST 

DIODE SIL. FASTHI VOLT 

DIODE SIL.REF.2,500VDC 

D I ODE SIL. ZENER3 . £ V . 2 5WATT 

SWITCH 8 POSITION DIP 

TRANST0R. COMMON MPN 

TRANST0R . COMMON PMP 

TRANSTOR . HI V0LTH: FREQ . MPN 

TRANST0R. HI V0LTHI FRSQ . PNP 

TRANSTOR . H I V0LTH I INPN 

TRANSTOR . H I V0LTNPN2N3 43 9 

TRANSTOR . H I V0LTPNP 

IC 1-SH0T 74HC221 

IC 1-SH0T 74LS221 

IC COMPARATOR 74HC688 

IC CONVERTER DAC0800 

IC COUNTER 74HC193 

IC HI SLEW HI VOLT OP AMP 

IC HYBRID DC/DC CONVERTER 

IC 0C DRIVER SK7406 

IC OCTAL LATCH 74HC374 

IC OP AMP LF256 

IC OPTO ISOLATOR 

POT100KOHM^WATT10% 

POT1 0KOHM^WATT10% 

POT25KOHM33WATT10% 

POT2KOHMJsWATT10% 



JOHANSEN #9526 
ITT. FAIRCHLD. 1N4148 

GENL. INST.EGP10D 
GEML. INST.UF4007 
NATL.SEMI-LM3852-2.5 
MOTOROLA 1N4622A 
CTS 206-8 
MOTOROLA 2N2222A 
MOTOROLA 2N2907A 
MOTOROLA MPSU10 
MOTOROLA MPSU60 
TI,MOTOROLATIP48 
MOTOROLA 2N3439 
MOTOROLA MJE5731 
NATL. SEMI MM74HC22IN 
NATL. SEMI DM741S221N 
NATL. SEMI MM74HC688N 
NATL. SEMI DAC0800LCN 
NATL. SEMI MM74HC193N 
BURR- BROWN 3584JM 
BURR-BROWN MODEL 724 
NATL . SEMI DM7406N 
NATL. MM74HC374N 
NATL. SEMI LF256H . 
HEWLTT-PCKRD HCPL2300 
BOURNS 3622-1-104 
BOURNS 3622W-1-103 
BOURNS 3622W-1-253 
BOURNS 3622W-I-202 
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Ref. Numeral 


Description 


lyianuiHCLurer 


of Component 


and Value 


ana ran no . 


VRI 


REGULATOR 5VDC 




RIO 


RES . 1MEG0HM^V7ATT5%C . £ . 




R2,4 


RES . 1 . 2K0HrfeWATT5%C . F . 




R32 


RES . 1 . 6KOHrBsWATT5%C . F . 




R44 


RES . 1 . 8K0HH*zWATT5%C . F . 




Rl 


RES . lOKEGOHM^Vi'ATTSJeC . F . 




R5.R22 


RES . 100HM 1 <rWATT5%C. r . 




R65 


RES . 100kOHMJjWATT5%C . F . 




R59 


RES . 10KOHM^WATT1%M. F. 




R100 


RES.2700HH 




R101,108 


RES.4700HM 




R102,103 


RES . 1K0HM 




106, 109, 110 






R104 


RES.470COHH 




R105 


POT. 100KOE4 




R107 


POT.10KOHH 




Rill, 113 


RES.2200HH 




R112 


RES . 2 2 OH!-: 




R114,115 


RES. 470HK 




C100 


CAP. 10KF035 VPC 




C108 


CAP. 10000 PF 




D100 


DIODE 


1N414S 


Q100,105 


TRANSTOR 


2N2222 


0101,102 


TRANSTOR 


2N3906 


0103 , 104 


TRANSTOR 


2N3904 


uiocuioe 


IC I -SHOT 


74LS123 


U103,104 


IC INVERTOR 


74LS04 


105,106 






U108 


IC LINE DECODER 


74LS138 



Of course, it should be understood that a wide range of changes and modifications can be made to the 
35 preferred embodiments described above. For example, the transducer couid be of a type other than piezo- 
electric such as magneto-strictive, electro-strictive. and electro-mechanical. It is therefore intended that the 
foregoing detailed description be regarded as illustrative rather than limiting, and that it be understood that 
it is the following claims, including all equivalents, which are intended to define the scope of this invention. 

40 

APPENDIX 



45 



50 



55 



16 



0 268 237 



Rianr-t at Printer 
Reagent Calibration 

Dffsit fiata South Liu 



m i 

07-14-84 

I2:24i57 

Itt Personal Coiputer BASIC Cotpiier V2.00 



70 



75 



20 



25 



30 



35 



40 



45 



50 



55 



0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0047 
0047 
0041 
0048 
004t 
0041 
0039 
005? 
00*0 
004A 
006ft 
007? 
0083 
00AD 
00B0 



GC04 
000* 
0004 
0006 
000* 
0004 
0004 
0004 
OC04 
0094 
0004 
0004 
0004 
(004 
0004 
0904 
0004 
0004 
0004 
00D4 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0034 
0004 
0004 
0004 
0004 
0004 
0004 
01FE 
01FE 
OlfE 
OIFE 
0201 
0200 
0200 
0204 
0204 
0204 
0204 
020A 
020A 



wait • 



'Reagent Jet Printer 
•REACH.' 



SSUBTITIE: 'Reagent Calibration* fUNESIZE: 132 



'AOTK2 - K. A. Enevold 



•CrPTMBHT 10 1985 ABBOTT LABORATORIES 
'REVISION - 7.0 07*01-86 NAE RicroFab edifications 
- 1.0 OM1-B4 NAE Creatioi of initial cede 

'5TS7DI - This code can only be cotpiled by the BASCOH 

CWILER, it Mill lot run under the INTERPRETER! ! 

'DESOUPTimi 

The reagent calibrate eodule presents a eenu nitb 12 iteet arranged 
is 3 colvns of 4 rons. The arrw keys allot toveust around the 
table, the + and - keyt i«reeent or decreitnt values in the first 
coluin, and the enter key eiecutes coaaands in the third coluw. 
The second coluin is an array of ASCII strings representing reagent nase, 
concentration, density, and viscosity. The values entered in coluin one 
are drop frequency, pulse eidth, strobe delay, and nozzle nuibcr. 
The coiiands in the third coluin are start/stop, load, save, and eiit. 

« 

'DATA DICTIONARY 

CXul Pointer to tkkh ie» itH is active (0*11) 

EKU8(I7,I) Array for strings used to display the «no 

1(101(17,4) Array for nuabers is the itnu display 

Dlffl Differential to love NEKU1 at arrw key input 

TYPE1 Pointer set during earn scan to direct action 

CEYBuTI Storage tor string input froa tenu display 

AS Destination for single keystroke inputs 

FILE! String there filenaee is built for reagent data file 

* tEANAREs String »here reagent naie is stored 

10, Roe to display special graphics character in senu 

' Q Coluin to display special graphics character in attu 

C Special graphics character is read into here 

Xt.Atf.VALUB Integer value for setting pulse aeplitade 
DIS.VAU Value set to digital port 0 to inc/dic aeplitude 

SUB KftSEXT* CALIBRATE STATIC 

tin BDW$(17,U,l£MJ(i7,41 



IlITIAlIZEt 



bWLE TYPO O 1 



'reed init. values and set scroti 



TYPEl ■ 0 
II «" 

WILE Al - " 
At ■ IWCEYt 

IF ACTIVEX « I AMD DOUNTIHE < TIBER THES 60SUB PEN.MHM 
VEND 
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6 



10 



75 



20 



fount Jit Print ir 
Reioint Calibration 

OHstt Data Sourct Urn 



25 



30 



35 



020A 

OOCA 020A 

00EO O20A 

0QF6 O20A 

OUB 020A 

0140 020A 

0165 020A 

018A 020A 

0IC2 020A 

0JC2 O20A 

01DB O20A 

0108 020A 

01SF 020A 

OlEt 020A 

0IE6 O20A 

01EA 020A 



PAS 2 
07-14-fio 
12:26:57 

IBM Personal Coipatir BASIC Coipilir V2.00 



IF Al • CHRIUJ) TKEK TYPEI * 1: 

IF Al » •♦■ THEN TYPEI * 2: 

IF Al « ■-• THEN TTPEI » 3f 

IF At « CHRHO) ♦ MS (72) THEK TYPEI * 4: 

IF At * CHRIIO) ♦ CHRS(BO) THEM TYPEI * 5: 

IF A J - CHRHO) 4 CHR$(751 THEN TYPEI * 6: 

IF Af • CHRIIO) ♦ CHRH77) THEN TYPEI * 7: 



'executi <cr> 
'incrntDt variabli 
'decrtiiot variabU 
'up arron key 
'down arro* kty 
'left arro* kty 
'right arrow kty 



IF Al > CHRH471 AW Al < CHM1123) THEH TYPE! * 8:' ascii 0-2 
OH TYPEI GCStIB Tl, T2, TJ, T4 t T5, Ti, T7, TB 
VEND 

TYPEI « 0 



an sub 

m IPA8E 



40 



45 



50 
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5 Reaqwt Jit Printr * 
Reigeet Calibration 0H4-B4 

12i2i;37 

Offiit Oata Source Line IW PerMOil CoipatK BASIC Coipilr V2.00 



70 


01 FA 


0760 


IMMH4HI sasaoiiTWES fw this mme immhhh 


DIP* 










01EA 


O20A 


Tl: 


'{try iiKuti ccnind 




01 FF 


05 OA 




If MM < 12 THEN TYPE « 0; RETURN: 'nit to print ana, no tctiaa 




0705 


CMC 




W HEXUI - 11 60SU6 TIA, TIB, TIC, T18 










If HEMS < 15 THEM TYPE • 0 


75 


G22C 


020C 




RETURU 


AHA 


02 DC 








MfXfl 


IP AT 


T1A: 


'itart/stop drop fios 




W*A3 






IF K*'jSU2 f 01 - 'START* THEN 60SUB START. IKK 










If BEKW 112,0) > *S1QP * THEN E0SUB STOP.ltt 




027F 


020C 




SRUI(12,0) « THHP* 


20 


029A 


0210 




am 0,7:60SUB 0I5PKEKI) 


02AC 
02B0 


0210 
0210 




RETURN 




0260 


0210 


START. Ufa 




0285 


0210 




TOTS « "STOP • 




02BF 


0210 




CALL DOLOR: 'is eoduli PCI 


25 




071 0 




LOCATE 17,71:C0lOR 27,0:PR1NT 'PRIHT1N6*; 


07F1 


0710 

V4IV 




active: « i 




02FB 


0210 




fiETURN 




02FC 


0220 








02FC 


02)0 


STOP. IK: 




0301 


0210 




TEKPI ■ ■START* 


30 


0301 


0210 




CALL OOT.OFFi '1b toduli PCI 


0317 


0210 




LOCATE I7,7hC0L0R IS.OxPBWT 1 B J 




0350 


0210 




ACTIVEX ■ 0 




034 4 


0210 




RETURN 




AUG 


0710 








0346 


0210 


Tilt 


'load reagent profile 


35 


0391 


0210 
0210 




IF RENIN*,!) > " MR LOCATE 25 f l:PP.IRT 'fieigeat Naat ii not specified' 




039) 


0210 




60SU8 SEARCH 




0397 


0210 








0397 


0210 




IF II < (REAKUIll ♦ 1) THEN 60T0 FOUND 




03AI 


0214 




LOCATE 25 f 10-L£RHIENUll6 f in/2:PRI»T REWJIU,!))* not Found*; 


40 


0404 


0214 




KTSUB ARYKEY: wit for a ityhit 




0404 


0214 




RETURN 




0401 


0214 








040E 


0214 


rows 






04U 


0214 




FILE! ■ RI6HT1 ISTPS 1 11) f LWtSTRI till > - J > ♦ 'REA.UP' 




0437 


0211 




0PEX FILES FDR WOT AS III 'sit patters data fill for rtai 


45 


0441 


0211 




INPUT ll,nENU<0 t 0h read frequency 




0441 


0211 




IRPUT ll,RENU(l,0lt read aipliUde 




0461 


0211 




IRPUT li,HERUI2,0h 'raid strobe delay 




04AE 


0218 




IKPOT ll,REKUI3,0)f read pulse mdtt 




0401 


0218 




HPUT ll,REWJI4,Oh 'read rist tin 




04F4 


0218 




INPUT ll,KEWI(5 t 01j 'read fall tin 


50 


0519 


0718 








0519 


0218 




IRPUT ll,KENMtt,nt 'read concentration 




0530 


0218 




INPUT ll,nEHUII8,I)i 'read density 




05M 


0218 




ItSPUT ll,KERUIl9 f i): 'read viscosity 




0585 


0218 




INPUT U,nENUlUO,l)i 'read surface teosioo 




05A9 


0218 







55 



19 



0 268 237 



PAGE 4 

5 fiaqMt act Printer 07-14-64 

Reagent Calibration I2:26i57 

» t , iM IWPerwBii Coowter BASIC btpiler V2.00 

Offiei Data Source Lint 

05A9 0218 CLOSE Hi 'dw* " ith Ml fill 

70 0510 021B 

0560 WW OPEN 'EEfiDEF.RJP' FOR OUTPUT AS II 

05C2 0218 PRINT II.FILES: "ve Him *■ «■»» fill 

0502 0218 PHOT II.HENUIU.I): *iavi the directory Mil If neil 

0SF4 0218 CLOSE II 

05FB 0218 60SUB DlSP.PARKSi 'law iH pirautiri 

75 0601 0218 RETURN 

06C5 0218 § ^ ^ 

S 02IB T1C: IF ieuil"i! "■MKEIHOCATE 25,1:PRINT 'Reagent Na« ii not sattilied'pSOSUB ftNYKEY:RETUBH 

Q64E 0218 OPEN ■READIR.RJP 1 FOR INPUT AS 11 

06SF 0218 INPUT tl,REMlflX 

20 0671 0218 CL0SI1 

0478 0218 IF REANUHX < 80 THEK BOTO SAVE.REA 

0687 0218 LOCATE 25,1:PRIHT •Directory it Full (80 reagents ui.) a 

06A1 0218 BOSUB ANYKEY J RETURN 

06A8 0218 SAVE.REft: 

OafiO 0218 BOSUB SEARCH 

25 06B6 0218 IF II > REAHUll THEN GOTO SAVEREAI 

06C7 0218 REANUKX « II 

06CE 0218 COLOR 15,0 

660ft 0218 LOCATE 25,l5PRINT ^(6,11;* alnady eiists. Replace it wth nen valuei? f 

070C 0211 II ■ M 

0716 0218 WULEtt*" 

30 07K 0218 If •MOT* 

072F 021B «N0 

0732 0218 UCATE 25,l:PRW SPACEldis 

07IF 0218 IF AS « T OR Al * Y THEN BOTO REPLACE 

0778 0218 RETURN 

. 077C 0218 

35 077C 0218 SAVEREAl: 

0781 021B • KILL , HEAD!R.OLD i t diUte old backup directory 

07B6 0218 KAflE •READIR.RJP" AS TEADIR.OLD': lave old directory 

0792 0218 OPEN 'KEA01R.SL0' FOR INPUT AS II 

07A3 0218 OPEN •REAOIR.RJP* FOR OUTPUT AS 12: 'set op nee dir 

0785 0218 

0785 0218 ItfUT ll t REANUHIt 'read nuaber of dir entrm 

07C7 02IB REANUNl « REANWd ♦ Is incrnie by 1 

07W 0218 NRITE I2|REANUHI: «ve in ne« dirKtory 

07E1 0218 

07E1 0218 FOR WTO REANUtt - 1 

07FH 021C LINE IHPUT ll.Ats read entry fron old dir 

45 0807 021C PRINT l2,Afi Vice entry in nee directory 

0817 021C XEIT 1 

0832 0220 

0832 0220 CLOSE 11 

0839 0220 

0831 0220 PRINT l2 t KENUf(6,i): Vile nw entry to ne» directory 

0851 0220 CLOSE Hi 'dow lith dirKlarf 

0862 0220 

0862 0220 REPLACE! 

OB67 0220 FILE! * R1BHTI ISTRl (8EANUNI) , LEN ISTRf (REAKIHI) ) -11 ♦ 'REA.RJP- 



088B 0220 



55 
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5 

fltigm hi Printer 
Reagent Calitratioo 

Off let Siii Sourct Lint 



70 0886 


0220 




CTOi FILES FOR OUTPUT AS lit create m pattern data 


0B9D 


0220 




KITE II,/l9(U(0 t 0)i 'stori friquwcy ■ 


0668 


0220 




MITE »l,n£KU(t,0)! 'itori uplitutft 


0B0C 


0220 




MITE ll 1 A£miC2 9 0)< stori strobi dilay 


OBFP 


0220 




WITE ll,BEWJ(3 t 0)j 'stori pulse lidtH 


091E 


0220 




ttnE ti,REIflJI4,0h 'store rise tits 


75 093F 


023 




Km MEKU^Oh 'ftori fall tin 


0962 


0221 






0942 


0220 




WITE lt,HEKW(7,!): 'store concentration 


0984 


0220 




WIT! li,KOiUl(8,I)t 'stort dmity 


09A4 


0220 




WJTE I1,AE*;U1I9,1)S 'stori viscosity 


09C8 


0220 




MITE « f nEKUIIlO f ni 'itore surface temion 


20 09EA 


0220 






09EA 


0220 




CLOSE til 'dont eith data fill 


09F1 


0220 






09F1 


0220 




OPEN *READEF.RJP* FOR OUTPUT AS 11 


0A05 


020 




PRIHT li,FlLE$» 'sm meoaee it default fill 


0A1J 


0220 




PRJIT ll t HENUIU t l): Java the directory last as Mil 


25 0635 


0220 




CLOSE 11 


0A3C 


0220 




81 TURN 


OA40 


0220 






0A40 


0220 


SEARCH) 


CMS 


0220 




OPEV •REAOIR.WP* FOB INPUT AS 11 


OAS* 


0220 




INPUT tl f REANUItli 'read siuibtr of patterns is dir 


30 0A48 


0220 




H » li 'sat entry pointer 


0A4F 


0220 






OAAF 


0220 


SLOOP: 




0A74 


0229 




LIME INPUT ll,Ali read neit patters rut froa dir 


0A8I 


0220 




IF At.« RENU$(6,11 THEN SOTO SEARCH* BORE: coepari nue tith dir ntry 


0AA5 
35 OAAE 


0220 




II * II ♦ 1 


0220 




IF IZ < (REANUH2 4 1) THEN SOTO SLOOP: 'check for done 


OKI 


0220 


SEARCH.DDK; 


0AC4 


0220 




CLOSE 11 


OACO 


0220 




RETURN 


OAOt 


0220 






40 m 


0220 


TIB: 


'return iitb no chanoi to nit reaaent uMrate 


OADA 


0220 




PRUT 13, "UK*; 


0AE4 


0220 




CLOSE Hi 1 close coi channel 


OAU 


6220 




RETURN 


0AF1 


0221 






OAfi 


0221 


Ri 


'process key 


45°*' 


0220 




IF sDWI ) 5 THEN RETURN 


0105 


0220 




WIIRE - TIMES 


OWF 


0224 




DQ.TRTWE • NEVTINE - 0LDT1RE 


081F 


022C 




OJT1HE • KVT1KE 


0B2! 


022C 




IF DELTATIRE > 0.15 THEN RULU • 1 ELSE IWLTX « RULTl ♦ 1 


0141 


022E 




IF IUn > 100 THEN HULT1 » 100 


50 m 


022E 




KNU<REWX,0) * Ktt(ftQWX,0) ♦ HENUIHEHM • WLTli *«dd incretnt 


0B9F 


022E 




IF KKIURENK,*] ) «W( REMIX, 1) THEN KENUIKENUl.O) • NENU(HENUI 9 l)i 'check m value 


OC04 


022E 




COLOR ISfhSOSUS DlSPRENUjREIURNi 'shoe ne« valet 


OCID 


022 






0C1D 


022E 


13: 


process key 


0C22 


022 




IF RENUX > 5 THE* RETURN 


55 «1 


022E 




KENT IRE i TIREI 



PAS? 5 
07-14-84 
I2il»i37 

I8R Personal Conpeter BASIC Cospiler V2.00 
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Reagent Jit Printer 
Riagent Calibration 

Offset Data Source Lint 



in 0C3B 


022E 




CEL7AT3HE * KEWIHE - 0LDT1RE 


0C4B 


022E 




DLDTiaE 9 KEi'TME 


0C55 


02 2E 




IF BELTATIRE > 0,15 THEN R0LT1 « I ELSE RULT1 « HULTX ♦ 1 


0C77 


022E 




IF RI8.TI > 100 THEN HULTZ = 100 


0C89 


022E 




nENUIHEHUM) » HEHUI«ENUI,0) - 100110111,3] • RULTls 'sub incrwent 




Witt 




IF RENU(«ENUI,0» < aU(Ma) THEN ftENU(XEKUX,0) 5 A£KU(R£NUI t 2) : 'chick tin value 


t« 0D32 


022E 




COLOR l5 f UGDSUB 01 SPKENU: RETURN: 'shoi nw value' 


wy^T 


fl??F 






OM? 

Vi/T T 


o?;e 


T4: 


*orocict in arrci kev 








IF RHiUl ROD A s o THEN RETURN" 'in too row already 


YVCJ 


02?£ 




DIFfZ » -l:G0SUB NEKKEfflkRETURNi 'eove pointer up one 


0D74 


0230 






20 0D74 


0230 


T3: 


'process doen arroi key 


0079 
0D8F 


0230 
0230 




IF XEKUX HOD b • 5 THEN RETURN: 'In bottoi ro* already 
D1FFX * U8QSUB NEVHENU: fiTTURH: 'eove pointer don one 


ODAO 


0230 






ODAO 


0230 


Us 


'process left arrov key 


vynj 


0310 




IF IKT [flFNUX /ihfi THEN RETURN in left coluen already 


0BP5 


0230 




DIFF1 * -&:GDSUB NENKEUI: RETURNS 'eove pointer one lift 


0006 


0230 






ADDA 

ODOB 


0230 


• i • 


'nrottK rioht irrsa ktv * 

IF IKT (KENUI / 61 * 2 THEN RETURN 'in rioht coluen already 


05FE 


0230 




D1FFZ s 6:EDSUB NEWENU: RETURN: 'eove painter one right , 


OEOF 


0230 






30 OEOF 


0230 


TB: 


'input keys into KEYBUF! until (cr) ii entered 


OEM 






IF RENU2 > 10 THEN RETURN 


0E23 


0230 




LOCATE 25,3O:C0L0R 3l t 0:PRINT 'ENTER KEN VAUJE'jjCOLOR 15,0 


OE" 


0230 




KEYBUFf s A$ 








WHILE AS <> CHRSI131 


0E72 


0234 




LOCATE 25,47:PR!»i! 5PACEN1!); 




0234 




LOCATE 25,47:FRIH1 lEYBUFI; 


0EA9 


0234 




Al « 


0EB3 


0234 




NHILE At * " 


0EC2 


0234 




Al * lMCEYt 


OECC 


0234 




IF ACTIVE! > 1 AND DCWTIKE < TIBER THEN fiOSUB PEN. DOWN 


0EF6 


0234 




VEND 


40 0EF9 


0234 




IF Al * CHRIIG) AM IBUEYBUFIJ > 0 THEN KEYBUFI * LEFTS UEYBUFI,LENU£YBUFt 1-1) 


0F3B 


0234 




IF Af ) CHRSUIJ M LEN(KYSuTS) < 15 THEN KEYBUFI « KEYBUFI ♦ Al 


0F73 


0234 




HENS 


on? 


0234 






on? 


0234 




IF HENUI > 5 THEN SOTO 5T0RE5TRIKB 


0F88 
S OFBB 


0234 






0234 




TEH? « VAL1UYBUFI) 'trap has value of kiys input 


0F?B 


0238 






0F9B 


0238 




'round off teip according to step sin in tenu array 


0F9B 


023B 




TEH? * INTtTERP / (htNU(R:NUl,31) ♦ .5) i RENU(RENUZ,3) 


0FB1 


0238 






50 m 
OFOl 


0238 




'test TEhT for eaiieui and eioieua values in eene array 


0238 




IF TEHP > HENUinENUI.l) THEN TERP » KERUCHEKUI,» 


1010 


0238 




IF TEHP ( RENUIRENU!,2> THEN URP » REHUlP,ENuT,2) 


104F 


0238 






104F 


0238 




'insert nev value into eenu array and update screen 


104F 


0238 




HENUWEWM) • TERP 


55 l0 » 


0238 




LOCATE 25,30;PRINT S?ACEIU01j 



?m 6 

07*14-64 
12:2atS7 

I BR Personal Coapoter BASIC Coioiler V2.00 



22 



0 268 237 



10 



75 



20 



25 



30 



35 



40 



45 



50 



55 



RuQtftt Jei Printer 




Riigtnt Calibration 




Wut lata 


Source Line 


IM Pirsoaal I 


10SB 0I3S 


CCLIS 0 t 7:80SUB HSPHENI 




109*. 0238 






S09E 0238 






IWE 9238 


STKtSTHIW: 




10A3 0238 


KEHUSfflttUX,!) « KEYBUFI 




JOBF 0238 


LOCATE :5,30:PR1HT SPACEt(40)j 




10DC 0238 


COLOR 0,7:808118 DISPfOU 




10EE 0238 


RETURI 




10F2 0238 






10T2 0238 






1QF7 0238 


DC tt Tilt « TWER ♦ 1 




1107 0238 


PfiWT B3,1 , | 




1117 0238 


RETUH 




me 0238 






1118 0238 


AXttElt 




1120 G238 


LOCATE 2S v MiPMNT 'Strike *ny key.. 0 ; 




113A 0238 


M • » 




1144 0238 


WILE AS * " 




1153 0238 


Al « WKEYI 




U5D 0238 


VEX0 




1160 0238 


LOCATE 25,l:C0L0R 1S,0;PKUI 5PACEW9);j COLOR lS t l 




1196 0238 


RITURK 




U9A 0238 






U9A 0238 


EWOlh 'witl old itee in yttloi, point to tnd highlio>t ne» itea 




119F 0238 


COLOR 14,0!B0SUB OISPKDtU 




11B1 0238 


AENUI « KEMU ♦ DIFFX 




UBD 0238 


IP RERin - 11 THEN REMIX - 10 




11CF 0238 


IF ftEKUX > IS THEM REM ■ IS 




\\t\ 0238 


COLOR 0,7:B0SU8 0ISPREWl:«Ttf» 




UF7 0238 






tin 0236 


INITIALIZE: 




HFC 0238 


'change to second screen and display tessages 




HFC 0238 


SCREW 0,0,1,1*^08 7,0: CIS: LOCATE 10,28:PRIMT 'Initializing to 


iflu Display | 


1240 0238 


LOCATE 12,33:PRINT 'Please Hit../ 




125A 0238 






I 25ft 0238 


'initialize variables 




12SA 0238 






12SA 6238 


ACTIVEX » Ot ' tot printiif 




1261 0731 






1261 0738 


'initialize plctter coi channel 




1261 ozst 






1261 0238 


0PQI *COMs2400 v ll f 8 f 2 a AS 13 




1273 0238 


PRWT 8: 1 , ji0ECS f Em,H , j 




1283 0238 






1283 0238 


'initialize digital sort 




1283 0238 


soa « 4 




128A 023A 


CALL B16ITAL.0UT(SCRZ> 




1296 023A 


sen * o 




12M 023A 


CALL BI611AL.QUTISCRI): 'pulse met lint to set aeplJtudc to 0V. 


1281 023A 


sen * 4 




1288 023A 


CALL 01SITAL.0UHSCRI) 




12CB 023A 






12CB 023A 


'sit hardwire Dulse lidth 




12CB 023A 


CALL SET.OOT.ilDTHlS) 'in aoduli PCI 





PAS 7 
07-14-86 
12i26sS7 



23 
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5 Reigent at Print* JJ*> 

Riigent Caijiretioa ""III* 
1 12*26:57 

OHiet- Oita Soarce tine m p,rwHl Co, P ttt,r W1C Co, P iUr ^ 

70 12BE 023 

12BE 023 'initialize eenu arrays 

12DE 023C RESTORE ARKDATA 

12E5 023C HB H*0 TO 17 

120 C73C HERUS ( Il f 01 v HENUt I II, 1 1 : 

13l> 023C READ HONJUl,!) ,RE1RJ(I1,2) ,HEH1HIX,3) ,HEMHI1,4) 

75 137C 02JC CXT II 

I3BF 023C 

13BF 023C '»t default riagMt valuii 

13BF 023C 

13BF 023C 10010,0) • 2000: 'frequency 

1MB 023C KE»m,0) * 0: 'aipiitutfl 

20 13C4 023C HEHI(2 t 0> « 1: 'strobe daily 

13E0 023C 100(3,0) ■ 090: 'pulse width 

13FC 023C ROmU,0I » 470: Till tit* 

1418 023C !EMJB,0> » 070: 'fall tilt 

1436 023C 

1436 023C «EWH4,0) « 0: 'niw 

25 1432 023C HEHJ(7,0) • Oi 'concentration 

146E 023C KEKlllB,Oi ■ 0: "dtniity 

MBA 673C ENUff,0) « 0: "viscosity 

14A6 023C KNU (10,01 ■ 0: 'aureate ttniion 

14C2 023C 

14C2 023C OLJ.ABP. VALUE! • 0 'iaitial value of 0 will 

30 14C9 023E 

14C9 023E 'change active displayed screw to first screen to dran and display parameters 

14M 023E 

I4C9 023E SCREEH 0,0,0,1:05 

14E6 023E 

S4E6 C23E COLOR ISiUCATE l,32:PMK CALIBRATE"; 

35 1307 023E COLOR 9 

I50E 0Z3E FOR W TO 79 

1518 ©23E LOCATE 3,I:PRIMT LOCATE S.laPUNT "I'pLOCATE H fl lsNlff Tj 

15of 023E «QT I 

1S8A 023E Ffflt 1*4 TO 16 

1594 023E LOCATE l,l:PWMT 'J*;:10CATE I,2B:PRIHT •.••^LOCATE I,69:PRIHT B : B |:L0(ATE 1,80:PR1HT -J^ 

i6oo 023E ran 

U26 02S RESTORE TABLE 

1621 023E P« 1*1 TO 12 

Utf IJS REAP. Rl, CI, Kl: LOCATE KI,CI:PR1KT CURS Off) j 

m m *it I 

1485 «« 

1683 0244 *priat thru headings and instruction 

1685 0244 COLOR 10,0 

1691 0244 LOCATE 4,7:PR1HT 'DROP PARAMETERS*; 

MAI WM LOCATE 4 f 39:PRINT 'REABENT PARAnETEHT 

16C3 02M • LOCATE 4,71:PRIW , CCJfflAKOS , | 

50 16DF 0244 COLOR 7:L0CATE 2!,20:PRtW 'Use '?:C0LDR 15:PRI*T CHR$H7liCHR«t32)jO0««A)| 

1729 0244 WW a»« CS2I sCHRS (24-> s CHRt C321 sCins C2S) ] sCCLOR 7:PRWT 1 to position highlighted cursor 1 ; 

176B 0244 LOCATE r f 18:PRlKT 'Use 'pCTUR 15:PR1KT ■♦'}:COLOR 7:PRIKT • or ';:COLOR 13&FUNT '-'} 

17BE 0244 COLOR hfRIKT' to scroll current value up st ookd'j 

1702 0244 LOCATE 23,26:PA1M 'Use •pCOLOR 15:PR1NT ■OPpCOUB 7:PR1HT B to activate selection'! 

55 1814 «44 



40 



24 
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5 



70 



75 



20 



Ritftftt Jit Printtr 
RiiQMt Ulifautioa 





Wilt 


Diti 


Source Lint 


25 










IBM 


0244 


OISP.PARKi 




1619 


0244 


diipUy IB uov choictt in ytllw 




1819 


0244 






1819 


0244 


COLOR 11,0 




1825 


0244 


FOR Ml ■ 0 TO 17 


30 


1626 


0244 


605UB D1SPHOU 




1831 


0244 


NOT RDtm 




1841 


0244 






1841 


0244 


*s»t *or riioiflt nue md highlight it 




1841 


0244 


fWl « fc;C0L0R 0,7 




1854 


0244 


eOSUB DISPAEW 


35 


I85A 


0244 






1BSA 


0244 


SCREBI 0,0,0,0 




1B&F 


0244 


RETURN 




1873 


0244 


RE* fPAGE 



m 9 

07-14-86 
I2t2il57 

IBfl Pirsoeil Coipittr BASIC Coipilir V2.00 
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45 
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5 



Ruqnt hi Printer PA8E 10 

Reagent Calibrstioi 07-14*84 

12:26:57 

Source Lint IW Personal Coipattr BASIC Coapilir V2.00 

KSPKENU: 

LOCATE CHENU2 MP 6)«2«7 V « IHT (HENUX/fcl «2fi*2) «15*INT (HEHUX/I2) 
PRINT BEKWlRE«a,0) 

IF RENUZ ) 5 THEN 60TD SH0USTRIK6; ' no valne to display 
LOCATE (HENUZ ffi» 6)«:*7 t HEKU(REKUI f 4) 
PRINT USIN6 H£NU$ (HEKUZ 9 i ) ; IOU (RE»TI t 0) ; 
IF RENUZ > 2 THEN RETURN 
OK HENUl+1 60SUB SET.FREQ, SET.ARP, 5ET. BELAY 
RETURN 
SKSfSHMSi 

IF HENUZ > 10 THEN RETURN 
LOCATE (HENUZ ROD 6X2+7,48 
PRINT • • 
LOCATE (HENUX HOD 6)*2*7,48 
PRINT KEWmXENUX,!) 
RETURN 

SET.FREQ: 

TEHP 8 HENU(0,0) 

CALL SET.OOT.RATE(TEKP): 'io aodule PCI 

LED! * HNTCOEHPttOOl/lOMI 
IF LEDZ < 0 THEN LED! « 0 

SCRZ » 4 ♦ IIE2X • 32): 'lit LED intensity 

CALL DIBITAL.OUTlSCRZh 'in aotfult PCI 

RETURN 

SET.ARP: 

SCRZ * CWtRENUiRENUI.O) • III I ISO): 'convert volts to binary nuiftir 

IF SCRZ « OU.AHP.VALUE: I KEN RETURN 
TEHP1 * SCRZ - OLD.AnP.WiaEZ: 'cakuUte delta 

OLD.ARP.VALUB * SCRZ: 'update old value to current value 

D16.VALZ « 6 

IF TEHPZ < 0 THEN 0I6.VALZ * 5 
TEfPl * ASSITERPZI 
FOR 1Z * 1 TO TEW 

SCRZ * 016.VALZ * U2«LE0Z) 

CALL DIBUAL.OintSCRXJ: 'pulse higher or lo»er 

SCRZ « 4 ♦ (32 « LED!) 

CALL DIHTAL.OUTISCRZ): set port to ftorial 

nn iz 

RETURN 

SEMEUYx 

TEHP * REWt2,01 

CALL SET. STROBE. &ELAY(TEKP)l 'in udolt PCI 
RETURN 

RER JPASE 



70 


Offset 


Oata 




1673 


3244 




187B 


0244 




1604 


0244 




IBF2 


0244 


75 


1901 


0244 




1933 


0244 




1966 


0244 




1975 


0244 




1936 


0244 


20 


19BA 


0244 


19BF 


0244 




199E 


0244 




19BA 


0244 




19C7 


0244 




19E3 


0244 


25 


1A02 


0244 


1A06 


0244 




1A06 


0244 




1A06 


02M 




1A24 


0244 




1A34 


0244 


30 1A57 


0246 




1A69 


0246 




1AB9 


0244 




1A99 


0246 




1A9D 


0246 




1A90 


0246 


35 iftA2 


0246 




IACB 


0246 




lftCC 


0246 




1AE8 


0248 




1AEF 


0248 




1AF6 


024A 


AO IBOB 


024A 




1B15 


024A 




1622 


024C 




1B3F 


024C 




1B4F 


024C 




1B6F 


024C 


45 


1I7F 


024C 




1891 


024C 




1193 


024C 




1673 


024C 




1I9A 


024C 




18B6 


024C 


50 


18C6 


024C 




1BCA 


024C 




18CA 


024C 



55 
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Input Jit rtintir [JJJJ 
, 0 bifnt CiUbntiM , 2 ^ |57 

IBH PtrsoBil Coiputir BASIC Ccipiler V2.00 



HzVtl f ttlVOOW t l»l|l* 
V • l i ltr f l30,0 1 l f l9 

> l a w a ,m l o f i,if 

yiir ,999,0,1,1* 



fit r>.4 


ft* 4 ■ 


sour ci Lint 


' I Din 


Mir 


- tii44iii44ft DATA USED BY THIS M 


15XA 


Mir 
W4C 




75 lKR 






terr 
iDU 


Mir 


DATA *FrtoucnCY 


1BDI 


Mir 

DOT 


DATA •Atolitudt 


i out 

IBD3 


Riff* 

D74C 


&ATA •Slrnbi Dilav 


I ED 3 


Mir* 


DATA •Pull! Vidth 

UHIK rUI.B wiwwM 


1BD7 


024C 


DATA 'Pitf Tilf 

UHIN M»b ills 


20 1BD9 


024C 


T1ATA 'FaU Till 
UmH TiiJ nil 


18DI 


Mir 


DATA *IUu* 0.0.0.0 


1B0D 


024C 


RATA •fflnrintritiflfl'.'VO, 


1 CRT 


mip 


DATA 'DtMitv*. ".9.0.0.0 


lotl 


Mir 


DATA •VittMitv 1 .". 0.0.0, 


. loto 


Mir 


DATA •SuMacf TfAiioQ'*" 


25 lots 


Mir 


DATA iB ,a 0 0.0.0 

VH1H f ,M w , u t v 


(OCT 

let; 


Mir 


DATA "START* 0 0.0.0 


1KT 


Mir 


DATA •LOAD* i ".0,0,0,0 




Mir 

v*%l 


DATA *SAVb;'.* b .0.0.O,0 


i sen 

IPCS 


Mir 


DATA •F.IITWO. 0.0.0 


tfipf 
Ittf 


Mir 

vi^l 


DATA ••.".O.O.O.O 


3D 1RPI 


Mi P. 


DATA ••.••.0,0.0,0 

wnin | | ¥ i ¥ |»i» 


tm 


024C 




IBF3 


024C 


TABLE: 


18F8 


024C 


DATA 3,1,218 


1BFA 


024C 


DATA 3,28,210 


1BFC 


024C 


DATA 3,45,210 


35 iBFE 


024C 


DATA 3,80,191 


1C00 


024C 


DATA 5,1,198 


1C02 


024C 


DATA 5,28,206 


1C04 


024C 


DATA 5,69,206 


1C06 


024C 


DATA S,B0,1B1 


1C08 


024C 


DATA 19,1,192 


40 ICOA 


024C 


DATA 19,28,208 


1C0C 


024C 


DATA 19,69,208 


ICOE 


02« 


DATA 19,80,217 


1C10 ■ 


024C 




1C10 


024C 


EMD SUB 


« lcl7 


024C 




45 IC17 


024C 




23EB- 


024C 




50426 Bytts AvailiMt 


43960 lytn Frn 



50 0 ..riuno Error (si 
0 Botfi Error (s) 
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Reagent Jet Printer PfiBE 1 

Pattern Entry/'taflifkation 07 * 05 * 86 

10:44:13 

Offset Data Source Line IB« Personal Cotputer BASIC Coipiler V2.00 

0030 0004 REH imiEs-Seacent Jet Printer' ISUBTltLE: 'Pattern Entry/KadH 
itation' 

0030 0004 "HOME - •PATENT" Pattern creation, lodHicatien, and filing 

* 

0030 OOOi ' 

0030 00O6 'AUTHOR - N. A. Enevold 
0030 0006 ' 

0030 0006 *CDPraiBHT (C) 1985 ABBOTT LABORATORIES 
0030 COM ' 

0030 0006 'REVISION - 1.2 03-10-86 MAE Reiove House inputs 
0030 0006 ' 1.1 02-20-B6 NAE Add BO pattern liiit to save 

0030 0006 ' 1.0 0H3-B6 NAE Creation of initial code 

0030 0006 ' 

0030 0006 'SYSTEM - This code can only be compiled by the 6ASC0H 
0030 0006 ' COJIPILER, it will not run. under the INTERPRETER!! 

0030 0006 ' 
0030 0006 'DESCRIPTION; 

0030 O006 ' This lodule allow the user to LOAD, SAVE, DIRectory, D 
RAY and 

0030 .0006 ' enter repeat count and other paraieters lor a pattern t 
o lie printed. 

0030 0006 ' The low-resolution graphics lode is selected and a «nu 
is displayed 

0030 0006 * across the bottoo of the screen. Using arrow keys 
0030 0006 * point to the action to be taken and then invoke that ac 
tion with the 

0030 OO06 ' Enter key. In the CRAM node, another eenu is 
-0030 0006 ' displayed which allows the user to select froi LINE, RE 
dangle, 

0030 0006 * Solid RECTangle, or CIRCLe pattern eleients. 
0030 0006 

0030 O006 'DATA DICTIONARY 

0030 0006 ' SCKDATl(50,5) 51 Ron (Eleients) by 6 Coluin array f 

or storing pattern eleients 
0030 0006 ' CURSOR! (9) Storage for cursor graphics icon 
0030 0006 ' KKUK61 Up to 7 aenu naies can be saved here 

0030 0006 ' ELNUHX Count of nuiber of eleients in a patt 

eri 

0030 0006 * H YZ Current location of graphics cursor 

0030 0006 ' 6R1D Value of one dot space on the screen 

(default is 0.002*1 
0030 0006 * ROW COLI Location to print instructions 
0030 0006 * At Storage for single key-strokes or inp 

at strings 

0030 0006 ' IEWMM Mhich ienu is being displayed II or 2 

1 

0030 0006 * ITEM Pointer to which ienu itei is highlig 

hted (0-6) 

0030 0006 * REPEAT1 Nuiber of tiies pattern is to be repe 

ated Hhen printed 

0030 0006 ' XDFF YOFF X and Y axis distance between the pri 

nting of repeated patterns 
0030 0006 ' RDWSP COLSP Row and Coluin spacing for printing i 

ultiple sets of patterns 
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Reagent Jet Printer 
Pattern Entry/Aodification 

Offset Data Source Line 



PAGE 2 
07-05-B6 
10:46:13 

IBM Personal Coiputer BASIC Compiler V2.00 



0030 CCO* PATHUHZ . Nuiber of patterns stored in 

the pattern directory PATDIR.MP 
0030 0006 * DROW DCOLI Ron and Coluin location to display di 

rectory entry* 

0030 0006 * KAHEt Pattern nan to be LDADed or SAVEd to 

directory 

0030 0006 ' 11 n Counters used to LOAD or SAVE the ele 

tent data froi/to pattern data file 
0030 0006 ' FILES Naie of pattern data file 

0030 0006 ' TEffl Which type of eleient is being drawn. 

1 * Lite 2 * Rectangle 

0030 0006 ' 

3 ■ Solid Rectangle 4 * Circle 
0030 0006 ' FLAS1 Saac as TEMPI above 

0030 0006 ' STARTBSSI ENMSSS Message display for startpoint and en 

dpoint of eleient entry 
0030 0006 ' X12 YU Starting cursor position for 

eleitnt being drain 

0030 0006 DXZ DYl Delta X and Y values used to 

re-position cursor after arrow key 
0030 0006 1 RAX ITER The highest nuiber itei in tb 

e current eenu display 
0030 0006 ' IS IE Starting and ending X position of the 

eenu highlighting blue boi 
0030 0006 ' RADIUSI The calculated radius of .a ci 

rele to be displayed 
0030 0006 REN SPfiGE 
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5 

Reagent Jet Printer ME 3 

Pattern Entry/notification 07-05-B6 

10:46:13 



70 


Offset 


Data 


mm ii mm TOM Derrnnal rn»niit*r Hft5ir Pncnilur 1/2.00 
SOUTCe Line *«" rBrsunil Lufpuier ensu. Lusp i iri vj.«vv 




0030 


AAA! 

0006 


SUB rAlENTKi 51 Rill 




AA 11 

0047 


AAA Z 

0006 






0047 


0006 


utnTu iA*crDrrii i»nc 
lIDTn 4u!alKttn ISLLs 


70 


005F 


0006 


Din 5CnDftTi(jU,j} ,LUh3UnliTJ ! ntMU»ioi 




AA I A 

0060 


A AAA 

02?A 


t! IIIIMV - Ae Y7-A»OT»iVC&Tfi s A AA^ 




007F 


Q2fi4 






a Mr 

007F 


AAA J 

02A4 


Lint lQ|Vi*l6fOJ 9 |B 




00A1 


02A4 


LIME lOiJJ-lfc.oJ ,,d 


20 


00C5 


02A4 


LINE (3,0)-l3.6) t |B 




A APB 

00E9 


02A4 


DDCCCT /T 

rKtbbl U.oJ 




» iff 
OOFS 


AAA ■ 

02A4 


I5CT (A A\_fi X) PHDCAD7 




At 9 I 

01i6 


AMI 

0xA4 


CLS 




011D 


02A4 




20 


Aim 
Ollv 


AM At 
QZM 


t TUP fA AUrttQ 1QA1 ft 
Lint lUjUt l4l1|l7VJf«9 




At j A 








A4 1 A 

0140 


02A4 






0147 


AAA 1 

02A4 


FAB 1*1 Tfl J 

FUR I s ! TIM 




A* C4 

0151 


A*! A 1 

02A4 


dc &n onui rnt 7 At 


30 


A4 1 I 

0164 


02AC 


LULRlt KUIi f LULiSrnlNI n*j 




01B0 


A«IAf* 

02AC 


UtYT f 

NEXT I 




019B 


02B0 






019B 


AHOA 

O2B0 


r 1R5I!. 




*i AA 

QIAO 


02B0 


HCimutiM z i 
ntNUKun s l 


u 
35 


A* A A 


AAA 1 

02B4 






01BO 


A*5tH 

02B4 






A < fl A 

01SO 


A1BI 

02B4 


nu itch * 1 enm p&tmr pati nfln patcaup P&TTjflftU REP 

UN lltn ♦ 1 DUiU rHiwiRj rHiLUm/i rHiSHVLa rHiynrWi ntr 








CAT PATCIT 
tnly r Hit Ml 




A trn 




GOTO FIRST 


40 


0100 


02B8 






0100 


02BB 


REPEAT: 




0105 


02BB 


605UB 1TEHB0IERASE: 'erase blue box around SIR 




01DB 


02BB 


LOCATE 25,liPRlNT SPACEK391; 'erase aenu line 




01FB 


02BB 


LOCATE 25,1: INPUT; 'Enter Repeat Count ', REPEAT! 


45 


021B 


02BA 


LOCATE 25,1:PR1NT SPACES 139); 'erase aenu line 




0235 


02BA 


LOCATE 25, UIHPUTj 'Enter I Axis OHset " ,XDFF 




0255 


02BE 


LOCATE 25,1:PRINT SPACE* 139) ', 'erase aenu line 




0272 


02BE 


LOCATE 25,1: INPUT j 'Enter Y Axis Oftset ',YQFF 




0292 


02C2 


EQT0 FIRST 


50 


0296 


02C2 


PATEXT: 




029B 


02G2 


itOTH BOsSCREEN 0:CLS 




02B2 


02C2 


EXIT SUB 




02B6 


02C2 


REH IPASE 



55 



30 



0 268 237 



Reagent Jet Printer P *K 4 

Pattern Entry/nodi fi cation 07-05-B4 

10:46:13 

Offset Data Source Line IBM Fersonal Cosputer BASIC Coepiler V2.00 



02B6 


02C2 


PATDIR: 'I ist directory of patterns 


A7RR 
Vice 




sicm iTrn^niFPflSf ■ 'erase blue box around 0IR 


02C1 


02C2 


LOCATE 25,IiPHINT SPACE! (39); 'erase lenu line 


02DE 


02c: 


OPEN •PATDIR.RJP" FOR INPUT AS Hi 'open directory 






fill 






input 11. PATNURX: 'read nuaber of patterns in dir 






or f nru 




vZC4 


i rur n t i -£T! R 1891 0 RF« 'prase oranhics tablet 

Lint lltU UiOj iD " J * vjDr » ci esc if* ou»iii»a L«w*tk 






i s A* 'set counter 








0330 


0ZC4 


DibLUOrS 


UJd J 




T s l ♦ !» 'set -for next value 




02C4 


IF 1 ) PATNURX THEN 60T0 DIREXIT: 'test lor done 






IF !NTi(I-M/44i <> (I-U/44 THEN GOTO SHQWNEXT 






IF INT(tI-lW44) < 1 THEN 60T0 SHQNNEXT 

lr InMVl If #171 \ A intn uuiu wiiwwrtkn i 




0?C4 






05C4 


LOCATE 25 IiPRlNT •ftore to Disolay. Continue ? (Y or N) 

It 


03C3 


G2C4 


1 

6QSUB C0RL0QP: "wait for Y or N response 


03C9 


02C4 


IF At * "K" THEN 60T0 DIREXIT: 'if N then don't contin 


03DC 


02C4 


Ut 


V JV to 


05C4 


LINE (l,l)-(31B.lB9),0 t BF: 'erase Graphics tablet 


0401 


02C4 




0401 


02C4. 


SKOVNEXTi 


0406 


02C4 


DR0XX * HI • 1) HOD 12) ♦ 2: 'calculate ro* for disp 








0422 


02C4 


DCOLX * 4s 'set coluin to 4 


0429 


02CB 


IF (II - 1) ROD 44) ) 21 THEN DCOLX * 23: 'reset coluin 






if necessary 


044C 


02CB 




044C 


02C8 


LINE INPUT It, AS: 'read next naie froe directory 


0459 


02C6 


LOCATE DR0UX.DC0LX:PRINT At; 'PRINT NAHE 


0475 


D2C8 


60T0 D1SL0DP 


0479 


02C8 




0479 


02C8 


DlRElITi 


047E 


02C8 


CLOSE li: 'teninate access to PATDIR.RJP 


0485 


02C8 


60T0 FIRST 


04B9 


02CB 




04B9 


02CB 


REN IPABE 
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Reasent Jet ?r inter Pfi3E 5 

Pattern Entrv/Sodificatira 07 " 05 * Bi 

10:46:13 

s,rce Line 1KI Personal Coiputer BASIC Cospiler V2.00 



it 

SD53B JTEKB0XERA5E: 'erase blue box around DIR 
OPEN •PATDIR.RJP' FOR INPUT AS II 
IKPBT 51,PATNUM: 'read nuiber of patterns in dir 
eOSUB BETKAHEs 'prompt for and input pattern n 



Offset 


Oata 


G4E9 

vio * 




04Bt 

vtwt 




A4Q1 














A7Pfl 


nip? 


VZWJ 




a?pr 


Aim 


A'JPfl 
vxwe 


04E3 


02CB 


04FC 


02CA 


0S31 


02CE 


054B 


02CE 


A^ e .1 












AW 




Uwf C 


WAV* 


UjDr 


A?!W 


05A1 


0202 






U JwJ 








UwLT 


A?M 






05F7 


0204 


05FD 


02D4 


0*21 


02D6 


AA11 


02D6 

VIVO 










QUA 


0234 


VOJU 




vBBW 


0206 


067C 


0206 


06B3 


0206 


0483 


0206 


0687 


0206 


0687 


0206 


06BC 


02S6 


0693 


0206 


0698 


0206 


06A5 


0206 


06BB 


0236 


06C1 


02D6 


06D4 


0206 



ue 



LIKE (l v i)-(318,in) 1 0 l Vi 'erase graphics tablet 
BCSUB SEARCH 

IF II < (PATHRB + D THEN BDT0 FOUND 

LOCATE lO f lWLEN(KAIlE*,/2):PRlKT HAKES; " not Found'? 

LOCATE 12,14:PRINT 'Strike Any Key' 

GDSUB ANYKEYs '*ait for a keyhit 

WTO FIRST 



FILE* « RIBHTKSTRHIU ,LEH(STR$II1))-1) ♦ •PAT.HJP' 
OPEN FILE! FOR INPUT AS lis 'set pattern data file 

lor read 

INPUT ll,ELNUnZ: 'read nuiber of eleients in pat 

tern 

INPUT ll,SRID: 'read jrid size 

INPUT I1.REPEATX; 'read repeat count 

INPUT ll,I0FF: 'read i axis offset lor repeit 

INPUT li,Y0FFs 'read y axis offset for repeat 

FOR II = 0 TO ELSSuHI - 1 
FOR il = 0 TO 5 

INPUT II^C^AttUVIiVread file into screen 

array 

NEXT JI 
NEXT II 

CL05E Us 'done with data file 

OPEN 'PATDEF.RJP' FOR OUTPUT AS II 

PRINT li,FlLEis 'save filenaae in defau 

It file 

PRINT ll,NMES: '5ave the directory nai 

e as well 

CLOSE II 

SOTO REDRAi 



II s U 'set entry pointer 

SLOOP: 

LINE INPUT II, AS: 'read next pattern naie froi di 

f JF ftl s NArtEt THEN SOTO SEARCH.ENOs 'coapare naae « 
ith dir entry 

n«iiu 

IF II < IPHKUKI + U THEN B0T0 SLOCPs 'check for done 



32 
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Reagent Jet Printer 
Pattern Entry/ Aerification 

OHsei lata source line 

0609 0234 CLOSE It: 

ssaqe 

06EO 0236 KTHBI 
06E4 02So 

06E4 0216 m SPfiBE 



PAGE 6 
07-05-86 
10:46:13 

I EM Personal Coeputer BASIC Couiler V2.00 
'not found so dose file and disolay ee 



33 
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Reagent Jet Printer PfiK 7 

Pattern Entry/Bonification 07-05-86 

10:46:13 

Source Line IBS Personal Computer BASIC Coipiler V2.00 

FATSAVE: 

BOSUB ITEBBOIERASE: 'erase blue box around DIR 
IF ELNimi = 0 THEN 60T0 FIRST; 'no eleients in pattern 
OPEN •PATDIR.RJP* FOR INPUT AS II 
to 070F 02D6 INPUT ll.PATWB 

IF PATNUHl < 30 THEN BOTO SAVE. FAT; 'directory fill 
at 60 patterns 
CLOSE II 

LOCATE 25,1:PRIHT SPACES (39) ;: 'erase bottoi 1 

75 ine 

LOCATE 25 t l:PRINT 'Directory is full (80 patterns iax)' 
BOSUB ANYKEY:BDTD FIRST 



20 



25 



30 



35 



40 



45 



50 



55 



hit mmL 

Offset 


Data 


06E4 


0206 


06E9 


0206 


06EF 


02D4 


06FE 


02D4 


070F 


02Di 


0721 


0214 


0730 


0206 


0737 


0296 


0754 


02D4 


076E 


02D6 


077B 


02D6 


077D 


0204 


07B3 


02D4 


078? 


02D4 


079A 


02D4 


07BF 


02D4 


07F4 


02D4 


OBOE 


02D4 


0815 


02D4 


0B1F 


0206 


082E 


0204 


0838 


0206 


0B3B 


0204 


0864 


0204 


0868 


0204 


0B68 


0204 


0860 


0204 


0B74 


0204 


0B7E 


0204 


088F 


0204 


08A1 


0204 


0683 


0204 


06BC 


0206 


OBCD 


0206 


0BE6 


02DA 


08F3 


020ft 


0903 


02N 


091E 


02DA 


092E 


020A 


093C 


020ft 


0941 


02DA 


0965 


020A 


0977 


020A 


098B 


02DA 


099B 


020A 


09A9. 


02CA 



tory 



BOSUB SETNAflE: 'proipt for and get pattern naie 
BOSUB SEARCH 

IF II > PATNUM THEN BOTO ADD. HEN. PATTERN 

LINE (l J l)-(3lB f 18?) 1 0,BF: 'erase graphics tablet 

LOCATE 10,13- CLEW ( KAHES 1 12) : PRINT NAnES; * already exist 

LOCATE l2 f 15:PRINT 'Replace it?* 
PATNWI * U 
A$ * " 
VH1LE AS * 

Al * INKEYt 

WEND 

IF AS * B Y B OR AS * V THEN SOTO SAVE, PATTERN 
60T0 FIRST 



KILL •PATDIR.OLD*: 'delete old backup directory 
NfiWE •PATOIR.RJP' A3 *FATD2R.DLD"s 'save old direc 

OPEN •PATDIR.OLD* FDR INPUT AS II 
OPEN •PATOIR.nJr' FCR OUTPUT AS 12; 'set up nen dir 
INPUT ll t PATKUni: 'read number of dir entries 
PATNUHI * rATKUH ♦ 1: 'increase by 1 
BUTE I2,PATNUHI: 'save in new directory 
FOR 1=1 TO PATNUni - 1 

LINE INPUT ll,AS: 'read entry froa old dir 
PRINT I2,AI; 'write entry in new directory 
NEXT 1 

PRINT I2,NAHES: 'write new entry to ne* directo 

CLOSE HsCLOSE 12: 'done with directory 
SAVE.PATTERN: 

FILES = RI BHT$ \STRS CPATNUKI ) ,LEN (STRi (PATNlinZ) ) -1) ♦ § P 

AT.RJP* 

OPEN FILES FOR OUTPUT A3 II: 'create ne* pattern dat 

a file 

WRITE ll,ELSIBI: 'store nuaber of eleients 

WRITE ll,6RIB: 'store grid diaensioo 

!!2I!E II REPEATS: 'store repeat count 

HR1TE ll.XOFF: 'store x axis offset for repeat 

34 
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Reagent hi Printer 
Pattern EnirWItadifi cation 

Offset 3ata Source Line 



PA6E 8 
07-05-Bt 
10:46:13 

m Personal Coiputer BASIC Coepiler V2.00 



om 02JA * WITE tUCFF: 'store y axis offset ior repeat 

0<?C9 025A FOR II * 0 70 ELKUHI - 1 

09D7 O20L FOR 31 = 0 TO 5 

05D5 02IC "WE tl,SLNDfiTHII,JI)j "write screen a 

rray to filt 
0A0O 025C KIT JI 

0A1O 02IC MEIT IX 

0A22 02DC CLS3E 11: 'done wth Data file 

0A29 02DC OPEN •PATKF.RJP" FOR OUTPUT AS #1 

0A3B 02K PR1KT ll,F!LE$i 'save filenaee in defau 

It file 

0A« 32BC PRINT H.SHIEjj 'save the directory naa 

e as veil 
0A56 02DC CLOSE I I 

0A42 O20C 6010 FIRST 

OAoo C2K RED SPABE 



35 
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Rgigr.t Jet Fruiter PAGE 9 

Pattern Entrv/Modifi cation 07-C5-B6 

10:46:13 

Outset 3sta Source Line I2S Personal Coiputer BASIC Coitoiler V2.00 

5 



30 



35 



45 



SO 



55 



Uh6o 






0A6:- 


C2DC 


GCSLE liE^uJEFhSE 


0A71 


02I-C 


LIKE (J,JM318,189],0,BF: Erase grapnici tablet 


0A?b 






AAA t 




KEITEL: 


0A9B 


02K 


SSSKilt = 2 


OAAS 


02K 


ESSUB SDBSU 


OAAB 


02DC 




OAkB 


025C 


ON ITEM ♦ 1 £370 ALIKE, RECT, SRECT, ACIRCLE, REDRAM, 1 






ACKUP 


0AC8 


02SC 


S0T3 KEXTEL 


OACB 


02DC 




A Am 

OACB 


02DC 


BACKUP; 


0AD0 


A*N*f» 


6051B ITEKBOIERASE 


0AD& 


02DC 


60T0 FIRST 


OADA 


02DC 


• 


OADfi 


02BC 


ALIKE: 


OADF 


02DC 


TEHPl * 1 


0AE6 


023E 


STARTJlSBf ' 'STARTING EWDPOINT' 


0AF0 


02E2 


ENMS6I = 'ENDING EfiyPOINT 1 


OArA 


C2Eo 


GOTO ENiERELEKENT 


OAFE 


G2EA 




OAFE 


02E6 


RECT: 


0B03 


02E6 


TEKPX = 2 


0BOA 


02E6 


GOTO RECTHBB 


OBOE 


02E6 




OBOE 


P2E6 


SSEC7: 


0B13 


C2E£ 


TEMPI = 3 


0B1A 


02E* 


BECTKSi 


OBiF 


02Eo 


STARifiSGl = 'STARTING CCRNER' 


0B29 


02E& 


EEV.SBI s 'ENDING CCRKEA 1 


0B33 


02Eo 


GOTO EhTtRELERENT 


0B37 


02E& 




0B37 


02E6 


ACaBELE: 


0B3C 


C2ES 


TERP2 = 4 


0B43 


02E6 


STfiSinSEI s 'CENTER OF CIRCLE* 


084B 


02E& 


DC-flSBf 'POINT ON CIRCLE * 


0ES7 


02E6 




0E57 


02E& 


ENTERcLEKENT: 


After 


Q2t6 


ensue iTrnantrD*rx 


AB 1 *\ 


02U 


rlftbl-v 


A til B 

0B4S 


Air o 

OZEB 


1 nrflTt !»DB1|JT CDflrr* fTDW 

IUUHI XJilSrKIliI srRttfOTj, 


OfiBs 


0218 




O6A0 


VlCB 




OBAi 


D2EB 


FINSSTART: 


OBAB 


02ES 


EOSUB MUSEACT 


0BB1 


02EB 


IF Al = CHS* (27) THEN SDTO ABORT 


08CB 


02EB 


IF At = CHRI113J THEK BOTD SETSTART 


OBDF 


02EB 


6QSUB tURSORKOVE 


0BE5 


02EB 


GOTO F1KDSTART 


OBEE 


D2E8 


ABORT: 


OBED 


02E8 


GOSUB PLpCECURSOR 


0BF3 


02EB 


60T0 NEXTEL 


0BF7 


02EB 





36 
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Reagent Jet Printer PAGE 10 




Pattern Entry/Modification 07-05-66 








10:44:13 


ID 


fir r..i 
Offset 


Oat a 


source Line IEM Personal Coiputer BASIC Cccpiler V2.00 




0Br7 


CulB 


Et.siARTi 




appp 


02EB 


LCJiTE *5,1:FR1NT t^D^SBf s 




0C16 


02EB 


Find s lEHPIilil = U:Y1I = YI 


20 


0C26 


02EC 


IF FlAoZ * 4 t HEN PSET CIZ*4,YZ+41 




0C55 


02EC 


FINDEND: 




ate* 

0C5A 


02EC 


EuSJB KOUSEACT 




OCtO 


02EC 


IF Af 5 CHRII27) TnEN BuTO CftHCELEL 




0C77 


02EC 


IF Al s CrlK$<13) THlN GOTO SfiVEEL 


9A 
£9 


AMP 

0C8E 


02EC 


EOSUB CLRSCRROVE 




0C94 


02EC 


6QT0 FINDEND 




0C97 


02EC 


P- > MAPI Pt . 

CAXElELi 




nror 
'JLVL 


OZiL 


cnctic di RrrntocnD 
sUbUb rLftLtLUKsUK 




0CA2 




UN FlflbZ 60SUB ER1, ERx, ER3, ER4 


30 


QCBJ 


02tC 


FLAEI s 0 




0C5A 


02EC 


SOTO KEXTEL 




OCBE 


02EC 


SAVEELs 




0CC3 


02EC 


EOSUB PLACECURSDR 




OCC? 


02EC 


IF FLAEI * 4 THEN CIRCLE (Hl+4,YlI*4),SM(«X-ni)*2t( 


36 






YI-Y1I)*2)„„I 




0032 


02EC 


60SUB CORRECT 




0038 


02EC 


IF AI**H* THEN GOTO SEZ-RAH 




0D4B 


02EC 


ETDREEL: 




0D50 


02EC 


5CNDATI(ELMUIU,0) « FLAEI 


40 


0D6A 


02EC 


SCNOATNELNUBI,!) - III 




0DB5 


02EC 


SCNDATKELNUia.2} « Til 




0DA0 


02EC 


SCH3ATI(ELNUDl,3) « II 




0DBB 


02EC 


SCK0Ai:(ELKO«,4) « f. 




0004 


02EC 


SCK3ATICELKilltt,5) * J 


45 


00EF 


02EC 


ELNilRI * ELHUtt ♦ 1 




0DF8 


02EC 


FLAEI = 0 




0DFF 


02EC 


ESTO KEITEL 




0E03 


02EC 


REII IPASE 



50 
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Reagent Jet Printer ™« 11 

Pattern Entrv/Hocification 07-05-96 

10:44:13 



Offset 


Data 


Source Line IBM Personal Coeputer BASIC Coioiier V2.0D 


OEOS 


02EC 


RESRAH: 


oeob 


02EC 


SOSUB 17EKBQIERASE 


OEOE 


02EC 


LlME(l,l)-13i8,189),0,BF 


0E33 


02EC 


IF EMPR 8 0 THEN 60T0 NIITEL 


0E42 


02EC 




0E42 


02EC 


FOB 1»0 TO ELNUnM 


OESB 


02F0 


ON SCNDATIll.O) 60SUB RD1, RD2, SD3, RD4 


0ES1 


02FO 


NEXT I 


0E9C 


02FO 


BOTO KXTEL 


OEAO 


02F0 




OEAO 


02F0 


hhhh Sub-routines called by tain aodule «t*HMt 


OEAO 


02FO 




OEAO 


02FO 


S'JBHENU: 


0EA5 


02FO 




OEAS 


02F0 


LOCATE 25,1:PRINT SPACEJ<39): 


GEC2 


02FO 


ON HENUNUH 60SUB HENU1, HENU2 


0ED1 


02F0 




0ED1 


02FO 


FOR 1*0 TD 4 


0ED6 


02FO 


READ HENlttll) 


0EF2 


02FO 


LOCATE 25,(1»4H2:PR1N7 KENUf til: 


0F28 


02FO 


NEIT I 


0F44 


02FO 




0F46 


02FO 


READ HAXITEH 


0F4O 


02F4 


1TEH 8 0 


0F57 


02F4 




0F57 


02F4 


NEHITEH: 


0F5C 


02F4 


EOSUB HEWTEHBOI 


0F42 


02F4 




0F42 


02F4 


NEIT IT EN: 


0F47 


02F4 


BOSUB ITtf.SEARCH 


0F4D' 


02F4 


IF AJ = CHRJI13! THEN RETURN: ' I TEN has correct value 


0FB4 


02F4 


IF LEN(AJ) < 2 THEN BEE?:60T0 NEUITEH 


0F9A 


02F4 


IF ASCIN:tltAi,2,l)l * 75 THEN BOTO LEFTAR 


0FB4 


02F4 


IF ASClHlDI(AI,2,t» - 77 THEN BOTO R1BHTAR 


0FD2 


02F4 


BEEP: BOTO NEXT ITEM 


0FD9 


02F4 




0FD9 


02F4 


LEFTAR: 


OFDE 


02F4 


IF ITEN = 0 THEN BOTO NEXTITEH 


OFEE 


02F4 


EOSUB ITENBOXERASE 


0FF4 


02F4 


ITEN s ITEN - 1 


1003 


02F4 


BOTO NEVITEH 


1007 


02F4 




1007 


02F4 


RIBHTAR: 


100C 


02F4 


IF ITEN « RAX 1 TEH THEN BOTO KEITITEH 


101F 


02F4 


BOSUB ITENBOXERASE 


102S 


02F4 


ITEN « ITEH + 1 


1034 


02F4 


BOTO NEW ITEH 


1038 


02F4 




1038 


02F4 


HEMIh 


1030 


02F4 


RESTORE HN1 


1044 


02F4 


RETURN 


104B 


02F4 




104B 


02F4 


KENU2: 


104D 


02F4 


RESTORE HN2 



0 268 237 



Reagent Jet Printer 
Pattern £ntrv/«05i? ication 



PAEE 12 
07-05-B6 
10:44:13 

lil Personal Ccnputer BASIC Coepiler V2.00 



Offset Sets 



arte Lint 



Id 



39 



1054 02?4 . RETURN 

1058 C2F4 

1058 02F4 JTEXSEASCH: 

1050 02F4 At * 1KKEYJ! IF At <> " THEN RETURN 

10711 02F4 GOTO ITEItSEARCH 

1070 02F4 RETURN 

1081 02F4 

1081 02F4 KEBITBBUi 

10B6 02F4 IS * I1TEJ1MB1 ♦ 7 

109C 02F3 IE - <J7ES»48) ♦ 8 ♦ LESMKENUSCITEH) )«8 

100? 02FC LINE US,19J)-IXE,1?91,1,B 

1101 02FG RETURN 

1105 02FC 

1105 02FC ITEriOIERASE: 

UOA 02FC LINE <IS,191)-(IE,199»,0,B 

1131 C2FE RETURN 

1135 02FC 

1135 02FC PLACECURSDR: 

113A 02FC PUT IIi+l,YM),CURSORl 

1157 02FC RETURN 

U5B 02FC 

1KB 02FC HOUSEACT: 

1160 02FC BOSUB ANYKEY 

1164 02FC Oil * 0 : OYI « 0 

1174 0300 IF A$ - CHRilO) 4 CHSI (721 THEN DYZ * -WRETURN 

1190 0300 IF At * CKRJ(O) ♦ CnF.flSOl THEN DYZ * 1: RETURN 

11C4 0300 IF A* * CHRtlOl * CHfH771 THEN OK = 1: RETURN 

UEF 0300 IF At - CHRtlO) ♦ CrSSlTS) THEN Oil - -lifiETURN 

1218 0300 IF A$ • '8' THEN DYI * -20: RETURN 

1232 0300 IF A* = '2' THEN OYI « 20: RETURN 

124C 0300 IF At * '4 1 THEN DII ' -20: RETURN 

1264 0300 IF At * '4' THEN DII * 20: RETURN 

1280 O300 IF At « CKRtl27) THEN RETURN 

1257 0300 IF At = CHMI13I THEN RETURN 

12AE 0300 EQTD NOUSEACT 

12B2 0300 

1282 0300 CasSRUVEi 

12B7 0300 BOSUB PLACECURSOR 

12B0 0300 ON FLAB! BOSUB ERI, ER2, ER3, ERA 

12CE 0300 n * II ♦ Oil : Yl « Yl ♦ SYI 

12E6 0300 IF IK 0 THEN II « 0 

12F8 0300 IF n > 311 THEN II « 311 

130B 0300 IF Yl < 0 THEN Yl * 0 

131B 0300- IF Yl > 182 THEN Yl « 182 

1330 0300 ON FLASI BOSUB OR!, DR2, 0R3, DR4 

1341 0300 GBSUB IISPCURSOR 

1347 0300 RETURN 

1348 0300 

134B 0300 CORRECT: 

1350 0300 LOCATE 25,1:FRINT SPftCE* (3?) j 

1340 0300 LOCATE :5,i:PfiINT MS THIS CORRECT? IY or N) '} 

1387 0300 CORLOOP: 

138C 0300 BOSUB ANYKEY 

1392 0300 IF At -- V OR At = 'Y» THEN At » ■ViBOTO COREIIT 
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Reaoent Jet Printer PA6E 13 

Pattern Entry/taoilication 07-05-86 

10:46:13 

Source Line IBS Personal Cowuter BASIC Coooiler V2.00 

IF ill * V SR M ■ THEN Al - *N':SDT0 CCREXIT 
SOTO C0RL00P 

CCREIIT: 

LOCATE 2S,1:FR1NT SPACEII391; 
RETURN 

DJSPCURSOR: 

EOSUB PLACECURSOR 

LOCATE 25,27:FRINT USIKB 'tt.lH'jR * SR1D-, 
PRINT Yi 

PRINT US1NB , +I.IH , 5YX * 6RID} 
RETURN 



RD1: 

LIKE (SCSDATI (1,11 +4-,SCHDftTI (1.2) *4) - (SCNDAT1 ( 1 ,3) , 5EH 
DATHt,4)*4) 
RETURN 

RD2s 

LINE ISCNDATX 11 t l)+4,SC«ATKI ,21 *4) - ISCNDATX 1 1 ,31 *4 ,SCN 
DATI(I,4)+4),,B 
RETURN 

RD3t 

LIKE (SCNCATXtl , 1 ) M.SC HCATI 1 1 ,21 +4) - ISCNDATX 11,31 +4, SCN 
DATIU,41+4I,,BF 
RETURN 



RAD1US1 -- SER(lSCWAtt;!,3)-SCKDATIll,ll) A 2 ♦ (SCSDATI ( 
I,41-SCNDATX(I.2))*21 

CIRCLE (SCNBATIII.lW.SCNDATIIt^WljRADlUSI,,,,! 
RETURN 



OH set 


Data 


13C5 


0300 


13F8 


0300 


13FB 


0300 


1400 


0300 


14 ID 


0300 


1421 


0300 


1421 


0300 


1426 


0300 


142C 


0300 


1456 


0300 


1463 


0300 


1430 


0300 


1484 


0300 


1484 


0300 


1484 


0300 


1489 


0300 


1522 


0300 


1526 


0300 




0300 


lw£P 


0300 


1SC4 


0300 


15C8 ; 


0300 


15CB 


0300 


15C0 

1 www 


0300 


1667 


0300 


166B 


0300 


1666 


0300 


1670 


0300 


16FF 


0302 


175D 


0302 


1761 


0302 


1761 


0302 


1766 


0302 


17AF 


0302 


17B3 


0302 


17B3 


0302 


17B8 


0302 


1801 


0302 


1805 


0302 


1805 


0302 


I BOA 


0302 


1854 


0302 


1S5B 


0302 


185B 


0302 


185D 


0302 


1861 


•0302 


1861 


0302 


1866 


0302 


1BAF 


0302 


18B3 


0302 



DRl: 



DR4: 



ER1: 



LINE (:tXa4,YlI+4]-UX*4,YI*4) 
RETURN 



LINE lllX+4,YiX*4)-CJIM,YI»4)„B 
RETURN 



LINE Um4,ilX*4HII+4,YZ+4»„BF 
RETURN 



RETURN 

LINE (niH,Yi:+4)-(m4,YXMl,0 
RETURN 
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Reagent Jet Printer PAGE 14 

Pattern Entry/flodifi cation 07-05-86 

10:46:13 

Offset Data Source Line IM Personal Computer BASIC Coapiler V2.00 



18B3 


0302 


EF.2: 




1BBB 


0302 




LIKE Bi:*4 l Vi:*4l-(n*4 l m4l l 0 f B 


1901 


0302 




RETURN 


1905. 


0302 






1905 


0302 


ER3: 




190 A 


0302 




LIKE (111*4, Yll+41-[Xm ! YlM),0,BF 


1954 


0302 




RETURN 


1958 


0302 






1958 


0302 


ER4: 




195D 


0302 




RETURN 


1961 


0302 






1961 


0302 


ftNYKEY: 




1966 


0302 




A$ * M 


1970 


0302 




WHILE Al * " 


197? 


03C2 




AS « IKKEY$ 


19B9 


0302 




VEND 


19BC 


0302 




RETURN 


1990 


0302 






1990 


0302 


BETNAKE: 'proipt for and get filenue 


1995 


0302 




LOCATE 25,1:PRINT SPACES (391) 


19B2 


0302 




LOCATE 25,38:PR[NT •<;';: 'boundry chevron 


19CC 


0302 




LOCATE 25,l:PRiNT 'Enter Pattern Nate 9 \ 


19E6 


0302 




LINE INPUTS ••jNAHEl 


19F4 


0302 




RETURN 


19F8 


0302 






19FB 


0302 


' Data fields used by this eodule 


19F8 


0302 






19FB 


0302 


KKl: 




19FD 


0302 




DATA •DlR , t i LCAD i 1 , S;vt'/:RAH , l > REPT i 1 i EnT i I ,, ,5 


19FF 


0302 






19FF 


0302 


RN2: 




1A04 


0302 




DATA i LINE , l 1 RECT , , , ERECT , l , CIRCL l 1 , REDRB , 1 , HAIN , ! M 1 5 


1A06 


0302 






1A06 


0302 


IHSTRUC: 


1A0B 


0302 




DATA B, 16, 'USE ARROWS' 


1A0D 


0302 




DATA 10,9,'TO SELECT FROM THE HEW 


1A0F 


0302 




DATA 14,12,'USE THE ENTER KEY' 


1A11 


0302 




DATA 16,10, 'TO ACTIVATE SELECTION' 


1A13 


0302 






1A13 


0302 


END SUB 




1A1A 


0302 






21AF 


0302 






50426 Bytes Available 




43373 Bytes Free 





0 Warning Error(s) 
0 Severe Error(s) 
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ScJSJ-.t Jst Printer PftBE 1 

Burr-Erowi PCI-20000 custo. driver 06-30-86 

08:38: 14 



Offset 


Oata 


Source Line IBtt Personal Computer BASIC Ccapiler V2.00 


0030 


0006 


REM STITLE: 'Reagent Jet Printer' JSuBTITLE: 'Burr-Brow, PCt-2000 






0 custoa driver' 


0030 


0006 


'MODULE 


• -PCr Driver for the PCI-20000 I/O and PULSE cards 


0030 


0006 






0030 


0006 


'AUTHOR 


- H. S. Fairchild of Coiputing Architects Inc. 


0030 


0006 




113 Fairfield Hay 


0030 


0006 




Blooiinodale, II 60108 


0030 


0006 




312/980-6777 


0030 


0006 






0030 


0006 


'COPYRIGHT {CJ 1985 ABBOTT LABORATORIES 


0030 


0006 






0030 


0006 


'REVIBIDH - 1.2" 12-16-35 KEF Add digital 1/0 initaiitation, and 






output routine 


0030 


0006 






0030 


0006 




- 1.1 12-10-85 nSF Hove counter aodule to position 2 


0030 


0006 






0030 


0006 




- 1.0 11-22-65 RSF Creation of initial code 


0030 


0006 






0030 


0006 


•SYSTEH 


- This code can only be compiled by the BASCGK V2 


0030 


0006 




COMPILER, it -ill not run under the INTERPRETER!! 


0030 


0006 






0030 


0006 


'DESCRIPTION: 


0030 


0006 




The PCI aoduie is a group of routines used to a 






ccess 




0030 


0006 




the BURR-Browi PCI-20000 board. The supplied software c 






auses 




0030 


0006 




the Nortistar2000 software to aalfunction and Mill not p 






rivide 




0030 


0006 




explicit on, off functions for the counters. Custoi dr 






ivers 




0030 


0006 




«ill fee aade to provide all of the desired functions. 


0030 


0006 






0030 


0006 






0030 


0006 




Address Register 


0030 


0006 




IHC0000 Carrier I.D. / eodule present tR) 


0030 


0006 




&HC0040 nodule interrupt status (R) 


0030 


0006 




iHCOGSO Digital 1/0 port 0 IR/W 


0030 


0006 




IHCOOBJ Digital 1/0 port 1 IR/i) 


0030 


0006 




IHC00B2 Buffer direction and enable (R/N) 


0030 


0006 




IHC0083 Control for ports 0 and 1 t W > 


0030 


0006 




iHCOOCO Digital I/O port 2 (R/V) 


0030 


0006 




tHDOOCl Digital I/O port 3 (R/V) 


0030 


0006 




IKC00C3 Control for ports 2 and 3 IK) 


0030 


0006 






0030 


0006 




IHC0200 Read aodule I.D. (1110 1010) 


0030 


0006 




IHC0204 Rate generator lw-oroer 16 bits (0) 


0030 


0006 




IKC020S Rate generator high-order 16 bits 11) 


0030 


0006 




IHC0206 Counter 3 count register (2) 


0030 


0006 




IHC0207 Rate generator/counter 3 control 


0030 


0006 




VHC0208 Counter 0 count register (0) 


0030 


0006 




IHC0209 Counter 1 ccunt register (1) 


0030 


0006 




IKC020A Counter 2 count register (2) 


0030 


0006 




IHCC20B Counter 0-2 control 


0030 


0006 




IHC020C Counter gate control (1 enables, 0 disa 
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Reaserst Jet Printer v : - PAS * 2 

Burr-Ercw FCKOiCO custsi driver 06-30-36 

08:3B:16 

Offset Data Scarce Line IW Fersonal Cotouter BASIC Compiler V2.00 



blesi 



0030 


0004 




bit function 


A ATA 

0030 


0006 




0 Rate generator gate 


AAT A 

0030 


0006 




1 Rate generator gate 


AM* 

0030 


A AAL 

0006 




2 Counter 0 gate 


AMA 
VvOW 






3 Counter 1 gate 




A. A A 1 




4 Counter 2 gate 




AAA! 

0006 




S Counter 3 gate 


AA7A 


0506 




6 Not used 


AA^A 


AAA! 




7 Not used 


AATA 


AAA! 
OOOO 






Afi\fl 


AAA* 








AAA J. 
VvvO 


'DATA DICTIONARY 


AATA 


AAAA 
VV\JO 






» urnm, 

VVJU 


WJVO 




COUNT - Divisor to 2fih7 rate to give desired trequenc 






y or tiie 


0030 


0006 




CDUNTHX - High order 16 bits ol a 32 bit diviso 


0030 


0006 




COUNTLI - Lou order 16 bits o4 a 32 bit divisor 


0030 


0006 




LSBZ - Lower 6 bits of a 16 bit divisor 


0030 


0006 




nSBI - Upper 8 bits of a 16 bit divisor 


0030 


0006 






0030 


0006 


' tain line code 


0030 


0006 




The tain line code is never executed. It's sole purpose 






it to 




0030 


0006 


' declare shared the variables that will be used in the subrout 






ines 




0030 


0006 


' so that they mil all be cehned and hold their values. 


0030 


0006 






0030 


0006 


nam:. 




0030 


0006 




OIK SHARED COUNT, CCwHTKI f COUNTLl,LSBI,KSBI 


0030 


0006 






0030 


0006 


HA1N10DP;_ 


0030 


0006 




GOTO HAINL00P 


004C 


0012 






004C 


O012 


m iPAK 
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Reagent Jet Printer PAB * 3 

Burr-£ro»n PQKCOOO custea driver 06-30-B6 

08:38:16 

Offset Oata Source tint Ii-H Personal Ccsputer BASIC Coapiler V2.00 

004C 0012 .'S38SUIIKE - PCUNIT 

004C 5012 ' 

004C 0012 'DESZiilPTSCR: 

004C G012 ' The PCI. MIT subroutine initalizes the PCI hardware. 

004C 0012 

OOC 9412 CS PCS. 181! STATIC ' 

0053 0012 

0053 0012 *EF SEp = UiCOOO: Toiat segient to PC1-20000 board 

005A «12 

005ft 0012 POKE lKO!OC,lH0Oi 'Disable all software enabled counter 
s 

00&3 0612. 

0063 0012 ' Configure rate generator to 2 Hhz 

0063 0012 

0063 0012 POKE tH0207,UB4: f 5et low rate counter to eode 2 

0060 0012 POKE IK0207,VH74s 'Set high rate counter to tode 2 

0077 0012 POKE IH0204,IH02; 'load low rate counter with 16 bits o 
f 2 

OOBl 0012 POKE lHft?O4,fcH0O 

OOBA 0012 POKE IH0205,W02: 'Load high rate counter with 16 bits 
of 2 

0094 0012 POKE M0205,IH00 

009D 0012 POKE W020C,IH03: 'Enable rate counters 

O0A7 0012 

O0A7 0012 ' Configure dot rate counters (default to 5 Khz) 

00A7 0012 

O0A7 0012 POKE lK02CB,iH34: Set Isi dot counter (0) to eode 2 

OOBl 0012 POKE iK02C8,l'H74: "Set high dot counter (1) to eode 2 

OOBE 0012 PCKE lKS2fcS,lH04! 'Itrt low rate counter with 16 bits o 
f 4 

00C5 0012 POKE iH020fl,lHOO 

OOCE 0012 POKE ;h0209,VH64: 'loao high rate counter with 16 bits 
of 100 

OOOB 0012 POKE W02Q9,IK00 

00E1 0012 

O0E1 0012 ' Coofiatrt dot pulse with one shot (default to 13 usee) 

00E1 0012 

00E1 0012 POKE 1H02GB,IK32! 'Set dot pulse with oneshot (2) to id 
0e 1 

OOEB 0012 PCKS W020A,IH1A: load oneshot with 16 bits of 26 

O0F5 0012 POKE tfiQ20A,MN 

OOFE 0012 

OOFE 0012 ' Configure shifted strobe pulse one shot (default to .5 usee) 

OOFE 0012 

OOFE 0012 POKE iK0207,«lB2: 'Set shifted strobe onshot (31 to tod 
e 1 

Oioe 0012 M920i l WOIi 'Load oneshot with 16 bits of 1 

0U2 0012 POKE lW20t,U00 
OM O012 

011B 0012 ' Configure port 0 to output and port 1 to input 
01 IB 0012 

01 U 0012 POKE iH0083,SHB2s ' Set up 1/0 chip 

0125 0012 POKE iH0082,W34: ' Set up direction and enable buffers 

012F 0012 POKE # <H0080,&H00: ' Dissable print head 
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Recent hi Printer PA6E 4 


Burr-rroiin PCI* 


-rCvCC cusioa criver 06-30-86 






03:38:16 




lata 


Source Line IBn Personal Coiouter BASIC Coapiler V2.00 


0135 


oci: 


EM SUB 


013F 


0012 




013F 


co:2 


PER SPftSElFs 12 


013F 


0CI2 


•SUBRQUTIKt - DOT.ON 


013F 


0012 




013F 


0012 


'SESCSJFTION: 


OI3F 


0012 


The DOT.CH subroutine enables the dot freouency counter 


013F 


0012 


&, 


013F 


0012 


SSt KI.OS STATIC 


OHt 


0012 




0146 


0012 


POKE IH020C,IH0F: 'Enable dot counters and rate generat 


0150 


0012 


or 


0150 


0012 


EKD SUB 


0157 


0012 




0157 


0012 


m fPA6EIF:12 


0157 


0012 


•EUBRDUTIKE - DOT. OFF 


0157 


0012 


• 


0357 


0012 


'DESCRIPTION; 


0157 


0012 


The DOT.DFF subrou- > disables the dot counters 


0157 


0012 




0157 


0012 


SUB DOLQFF STATIC 


015E 


0012 




015E 


0012 


POKE iH020C,tK03: 'Disable dot counters and enable rate 






generator 


one 


O012 




OUB 


0012 


EKD SUB 


our 


0012 




OUF 


0012 


SEB SPAGtiF:49 



50 
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Reagent Jet Printer 

8urr-Srowi PEi-20000 custci Driver 

Offset Data Sssrce Line 



PASE S 
06-30-86 
08:36:16 

IBH Personal Cotputer BASIC Cospiler V2.00 



OUF 0012 'SUBROUTINE - SET.SOT.RATE 

OUF 0012 ' 

OUF 0012 'DESCRIPTION: 

OUF 0012 ' The 5ET.D07.KATE subroutine loads the dot rate counters 

OUF 0012 ' with the desired dot frequency. Allooed range is 10,000 to 1 
Hz. 

OUF 0012 ' The FREE paraieter is a real nusber in Hz. 

OUF 0012 

OUF 0012 SUB SET. DDT. RATE (FRED) STATIC 

0176 0012 

0176 0012 ' Litit freqency to in range 

0176 0012 

0176 0012 IF FREB < 1 THEN FRED * 1 

018F 0012 IF FREB > 10000 THEN FREB = 10000 

01A8 0012 

01AB 0012 ' Convert to count and check for 16 bit count or 32 bit count 

01AB 0012 

01AB 0012 COUNT = 2E6 / FREB 

01BB 0012 IF COUNT < 65536! THEN EOTO OIVIDEU ELSE GOTO DIVIDE32 

01CF 0012 

01CF 0012 ' Process count of 32 bits 

01CF 0012 

01CF 0012 DIV1DE32:. 

0100 0012 COUNTLZ • INTIICDUNT/32768!) * lis 'Stage loner count 

OlFO 0012 COUNTHl * INHCBl'NT/CCUNTLl): 'Fori uoper count 

020B 0012 60T0 SEUOUHT 

020F 0012 

020F 0012 " Process count of 16 bits 

020F 0012 

020F 0012 DIVISEU: 

0214 0012 C0UNTL1 « 2 

021B 0012 COUNTHl * INT (COUNT/2) 

0232 0012 EOTO SET. COUNT 

0236 0012 

0236 0012 ' Send the derma counts out to the counters 

0236 0012 

0236 0012 SET. COUNT:. 

0237 0012 LSBZ * COUNTLZ HOD 256: ' Send out Ion 16 bits 
0248 0012 KSBZ * INTICDUHTLI / 256) 

0263 0012 POKE IH020B,LSBZ 

0273 0012 POKE lH020B,nSBZ 

0283 0012 

02B3 0012 LSBI « COUNTHl HOD 256: 'Send out high 16 bits 

0291 0012 HSBZ « INT (COUNTHl / 256) 

02AC 0012 POKE 4H0209,L3BZ 

02BC 0012 POKE W020*,nSBZ 

02CC 0012 

02CC 0012 END SUB 

02D3 0012 

0203 0012 REH !PA6EIFs27 
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Reagent Jet Printer 

8urr-5row> PC1-IOO00 custoe driver 



PftBE 6 
06-30-86 
08:38:16 



Offset Cat! 



re Line 



I BR Personal Coaouter BASIC Coapiler V2.00 



02D3 0012 'SliifflrTW - SsT.DOT.HWH 

02D3 0012 

02D3 0012 "DESCRIPTION: 

02D3 0012 ' The SET.DOT.NIBTH subroutine loads the dot width one sh 
ot 

0283 0012 ' tith the desired dot pulse width. Aliened range is .5 to 16,0 
00 usee. 

0203 0012 ' The duidth paraaeter is a real nuaber in usee. 

02D3 0CI2 

02D3 0012 £118 Scl.iDT.HlDTHlDMIDTH) STATIC 

02DA 0012 

02DA 0012 ' Unit width to in range 

02DA 0012 

02DA 0012 IF BHBTH < .5 THEN DH1DTH * .5 

02F3 0012 IF DV10TH ) 16000 THEN DHIDTK < 16000 

030C 0012 

030C 0012 ' Convert to count 

030C 0012 

030C 0012 COUNT = DHIDTH / .5 

031A 0012 

031A 0012 ' Send the derived count out to the counter 

031A 0012 

031 A 0012 LSBI * INT (COUNT HOD 256): ' Send out 16 bits 

0331 0012 HSBI « INT (COUNT / 256) 

0348 0012 POKE W020A,ISBI 

0358 0012 POKE iH02QA,flSBl 

0368 0012 

0368 0012 END SUB 

036F 0012 

036F 0012 m TPAEEIF:27 
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Rcag2nt Jet Printer 

Burr-Bro*n PC1-20000 custoi driver 

Offset Data Source Line 



PAGE 7 
06-30-B6 
08:36:16 

IBS Personal Cosputer BASIC Cospiler V2.00 



036F 0012 'SUBROUTINE - EET- STROBE. DELAY 

036F 0012 ' 

03&F 0012 'DESCRIPTION: 

036F 0012 ' The SET, STRDEE. DELAY subroutine loads the strobe delay 
one shot 

036F 0012 ' Mith the desired strobe delay tiie. Al toned range is .5 to 16 
,000 usee. 

036F 0012 ' The delay paraieter is a real nuiber in usee. 

036F 0012 

036F 0012 SUB SET. STROBE. DELAY (DELAY I STATIC 

0376 0012 

0376 0012 ' Liiit delay to in range 

0376 0012 

0376 0012 IF DELAY < .5 THEN DELAY ■ .5 

038F 0012 IF DELAY > 16000 THEN DELAY - 16000 

03A8 0012 

03A8 0012 ' Convert to count 

03AB 0012 

03A8 0012 COUNT * DELAY / .5 

03B6 0012 

03B6 0012 ' Send the derived count out to the counter 

0366 0012 

03B6 0012 LSBI ■ INT (COUNT ROD 256): * Send out 16 bits 

03CD 0012 RSBI « INT t COUNT / 256) 

03E4 0012 POKE tK020i,LSK 

03F4 0012 POKE IH0206,KSB1 

0404 0012 

0404 0012 END SUB 

040B 0012 

040B 0012 REM $FA6EIF:16 

0403 0012 'SUBROUTINE - DIGITAL. GUT 

040B 0012 ' 

040B 0012 'DESCRIPTION: 

040B 0012 ' The DIGITAL. OUT subrcutine sends the passed integer to 

the output 

0406 0012 ' port 0. 

040B 0012 

0406 0012 SUB DIGITAL. OUT (BYTEI) STATIC 

0412 0012 

0412 0012 ' Send the byte to the port 

0412 0012 

0412 0012 POKE IK0080,8YTE1 

0423 0012 

0423 0012 END SUB 

042A 0012 

057F 0012 

50426 Bytes Available 
4B723 Bytes Free 

0 Warning Error Is) 
0 Severe Error (s) 
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Re age at 
Patttri 



Jot Punter 
Printing 



70 



75 



20 



25 



30 



35 



AO 



SO 



Offset ItU Source lint 



oo:o 

OC30 
0030 
0030 
O030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
0C30 
0030 
0030 
0030 
O030 

oc:o 

0030 
0030 
0030 
0030 
0030 
0030 
0030 
0030 
O03O 
0030 
0030 
003O 
0030 
0030 
0030 



O00A 

ocu 

0004 

cow 
cow 

0006 
0004 
0OC4 
0004 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
OG06 
0004 
0006 
0006 
0306 
0004 
0006 
0004 
0006 
0C06 
0006 
0096 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 
0006 



PAGE 

ow 

OB: 4 

IBB Pirioul Cc tout ir BASIC Coioiler V 



?•« l!]TLS;'teent Jtt Printer* ISUBTITtft'Pattern Printing' IllNESIZEilSI 
•CrJLE - 'PATrillKT" 

'n'Jititf - X. ft. Enevold 

-jstma i« ira ab*ctt laboratories 
» 

'KVISlwS - 2.0 07-0?-Bo NAE fedifiid lor HicroFih Printhiad 
- 1.1 03-07-84 Nfi£ Added not is and final touchis 
1.0 02-03-86 XAi Crtation of initial code 

'StaTtX • This code can only bi coapilid by tht BASCOB 

CDXPUER, it Hill not run ondtr tht IKTERPRtTER!! 

•DEERIFTiai 

Tht printing icdult displays a lino in 3 colains of 4 ro«s nch. Tht first 
colutn hii data froi tht dtfault reagent prof iit. Tht itcond coluan his 
data froa tht default pattern fill. Tht third colom has standard printing 
data. Tht four arnrn keys alio* different ttno ittti to bt highlighted and 
tht valuts can bt changed »ith tht ♦ or - keys or by entering tht nm nueber 
fellowd by Enttr. P till caust tht pattirn to bt printed, 5 till stltct tht 
aotipad, and £ nil Hit to tht tain prograi. On tht notepad, any single lint 
tnttrid htrt nil bt stnt to tht printer, ft nail lint exits the notepad. 



'MIA SICT1DKARY 
MUX 

Dim 

EUjUX 



Which my ilea is highlighted (0*17) 
Uhere to love atnu highlight m response to arrow key 
Khat Hi nas been pressed during aain scan 
Hui^tr of tleitnts in currtnt pattern 



SCkTATI(S0,5) Amy (or storing eleients in currtnt patttrn 

RcPeSTI Counter for repeat printing tht patttrn 

CT1 Counter for stepping through the pattirn array during printing 

W3IUS1 Radius of circle during printing 

K TI Offsets for start ron/coluin position 

RcflJ K*YI Repeat distances for repeat printing of patterns 

Sn Stl Starting I and Y positions for solid rectangles 

EH ETZ Ending I and Y positions for solid rectangles 

II Jl Counters used for reading patttrn files into tht array 

TEXPl Register for use. iitegtri 

K1EL1KZ Pointer to alien line is active in tht notepad 

KMQM7,!) Array of strings used to display eeoi itets 

AS Single keystroke inpst dtstioatioo 

VOTEI String intend in notepad and tent to printer 

rCYSUFf String entered froi aain scan and assigned to nutber of string field 

REAXAflES Neat of dtfath reagent 

PATWHEf Wait of dtfaolt pattern 

FILE* Neat of reagent data file and then patttrn data fill 

HEWUl,*) Array of values used in displaying eenu itei nuebtri 

TEX? Register for the teiporary storage of rial nuabers 
REH IPASE 
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R!i§wt ;«t Frintir PA8E . 

Pattern Priutin? 09 * r 

08:4' 

Dffnt Data Ssurce line m p,r,0Bl1 Co| j ,otlr BftSlc Cc, * lllf * 



10 


UIUV 


AAAl 




AAA? 


UvVB 






AAJ7 


AAA! 


n in SCNDA?lfS0.5).A£lfUS(17.1) .AEHUU7.4) 




vv*0 


VIM 






fiAiR 


Alt? 


cnctifi INITIALIZE! 'nail init. values and set screen 




flftlP 


AIM 




75 


flrtif 






fldCB 

vwi 


Alii 
WW 










TYPEI * 0 




flflAA 
UUOV 




At « " 




vudm 


0168 






006A 


0468 


VKILE A$ « " 


20 


0079 


0168 


Al * I MEW 


0083 
■ 0086 


0468 
0468 


NEW 




0086 


0468 


IF AS • a E B OR At « , e a THEM TYPE! « I: 'nit sub 




0082 


0468 


IF Al s v OR At * y THEN TYPEI » 2: 'print pattern 




AflAT 
yvut 




IF Al « •♦• THEN TYPEZ * 3: 'increaent variable 

#1 w9W * 1 1*1**1 til t»at 109 mmmm 


25 


HUM 


vnQQ 


IF At * THFJi TYPEI * 4: 'decreeent variable 


010A 


0468 


IF Al » CKRf CO) ♦ CHRH72) THEM TYPEI * Si 'up irro» key 




Vim 




IF Al * CHS 1(0) ♦ CHRH80) THEN TYPEI * 6: 'tinn arroi key 




0151 


V*0O 


IF Al • CHRM0) ♦' CHKH75) THEN TYPEZ * 7: 'left arrw key. 




A17*J 




IF Al ■ CHRH0) ♦ CHRK77) THEN TYPEZ * 6: 'right arm key 




fticr 

. ViTfc 




IF Al ) CHRI147I ;\Q Al < CHRH5B) THEN TYPEI * 9l* nuiber 0*9 


30 


ViVO 




IF Al » *S* OR Al • V THEN TYPEI * 10: 'enter scratchpad 


A?A5 








0202 


0468 


ON TYPE! 6DSUB Tl, 72, T3, T4, T3, T6, T7, T8, T9, TtO 




021F 


0468 






021F 


0J68 


VEND 






0468 


TYPEZ s 0 


JD 


022A 


0468 






022A 


0468 


EZIT SUB 




Viit 


Af&fl 
v^oo 






A^c 




*«iiiiMtm SUBROUTINES FCR THIS KOOULE ttftutHtf 




A39F 
vac 


0468 


TlOi 'imtcti Did 




0233 


0468 


SCREEN O,0,2,2:CX0R 7,0 


40 


0256 


0468 


LOCATE K31ELIXEI, I 




0264 


046A 


WTRCOPs 




0261 


0461 


LINE IKPUT K0TEI 




0277 


046E 


IF KOTtl » " THEN SCREEN 0,0,0,0: RETURN 




02*f 


046C 


IPRIW WTEt 




02AC 


046E 


IF N0TEL1NEZ < 24 THEN N0TEL1NEX * HOTEL INEZ 4 1 


45 


02CO 
02C3 
02C3 


046E 
046E 
046E 


SOTO KQTflOOP 




02C3 


046? 


Til 




02C8 


046* 


RETURNS 'tiit to print ihu, no action 




02CC 


046! 




50 


02CC 


oue 


T3a 'prctess •♦• key 




0201 


046! 


IF SilOUEKIltOI > 3 KSUtHEKin,!) THEN HEKUIrlENUIfO} = fltNU(RENUl,l):RETURNi 




033C 


0470 


HENUmEVKtO) * HEHUINEHOX^) ♦ REKUIHEKUZ,:h 'add incrcieat 




0372 


0470 


COLOR 0,7:63SUB DISPKKliiRETUHN: 'shew new value 




0388 


0470 






036B 


0470 


T4i 'proceii key 
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70 



75 



20 



30 



35 



45 



50 



tootflt Jet Printer 
Pattern rnntiK 

Offset Date Scarce uie 



OX 0470 

C3F5 0^70 

042£ 0470 

0444 0470 

OUl 0470 

0419 0470 

045E 0470 

046F 0472 

044f 0472 

0474 0472 

048% 0473 

0496 0472 

049B 0472 

04A0 0477 

04C0 0472 

0401 0472 

0401 0472 

04D6 0472 

25 04F9 0472 

050A 0472 

050A 0472 

050T 0472 

0541 0472 

054B 0474 

055£ 0476 

057B Wk 

0595 0474 

059F 0474 

05A£ 0474 

OSBB 0474 

05BB 0474 

05F5 0474 

061E 0474 

0622 W74 

0632 0471 

0432 0474 

40 0632 0474 

044B 047A 

0441 0471 

0641 0474 

0444 W74 

04H 0474 

06E9 0474 

06E9 047A 

0705 0474 

0722 0474 

0734 0474 

0738 0474 

073B 0474 

073D 047A 

073D 047A 

075ft 0474 

0767 0474 

0771 047ft 

55 



FA6E 

CM7 

08:49 

IW Personal Ccwuter BASIC Cwpiiir V2 



T4J 



T7: 



78: 



79: 



If JLINUHIENIM < s 3KUIftBVX,2) THEN REHUUEKU^OI » 5£KU(REKU:,:J:P.ninW: 'chick ain value 
!£flUEffll,0) « KENU«rESUl,0) - KcKUfH£HUt t 3) : 'sub increment 



CL» 0,7iBCSUB OISPREMJ-.RETURN: 

'process up arron key 

IF SUM HDD 6 « 0 THEN RETURN: 
Dim = -1:5QSUB HEWiEWiiRniBW: 

'process do«n arroi key 
IF KDTuX ROD 4 • 5 THEN RETURN: 
BIFFt « 1:GDSUB KEMENU: RETURN: 

'process left arrou key 
IF intREKUI / 6) » 0 THEN RETURN 
Birr: « ~6;60SUS KEVHEKU;RETURNs 

'process rieht arrw key 
IF 1 VT IRENU1 / 6) » 2 "HEN RETURN 
DIFrl > 4:BDSUB NEHR£KU:fcETO: 



*sho» oe« value 



'in top ro« already 
'tovt pointer up one 



'in tot toe ro« already 
'aove pointer dovn one 



'in left coluin already 
'iove pointer one left 



'in right coluin already 

'iove pointer one right 



'input ktyt into KEYWFS until (cr> is entered 
LOCATE 25,30:COLOR 31,0: PRINT "ENTER KEN VALUE'; :CQIGR 15,0 
IEYBUFS « 41 
KHILE At <) CHRK131 

LOCATE 25,<7:PMST SPACES 120); 

LOCATE 25,47:FMNT KEYBUFSj 

M * " 

WILE AS » " 

AS i IWEYS 

MEND 

IF AS = CKF.U81 «D LEN(FEYSUFS) ) 0 THEN KEYBUFI * LEFTS WEYBUFI,LEK(tEYBUFlM) 
IF AS ) CHRS(3!) THEN KEY3UFS > KEYBUF! ♦ AS 

VEN8 

TERP « VAUKEYBUFS) 'teip has value of keys input 

'round off te» accoroino, to step size in eenu array 
TERP * INT (TERP / IREKC1RENUI,3)> ♦ .5) I REHU(RENU1,3) 



'test TERP for mieue and ainieet values in imq array 
IF TERP > REWfflORR,U THEN TERP > fcNUlRENUI f l) 
IF TERP < REWIRENDV) THEN TERP « RENUIREKUI,2) 

'insert nei value into eenu array and update screen . 

REITJtflEKUX,0} « TERP 
LOCATE 75 1 30:PRINT SFACEIMO)) 
CDLOR 0,7:B0SUB OISPnEtt) 
RETim 

T2: 'set Burr-Brwn board then print desired pattern 

BEE?;CCLOR t*, 0: LOCATE 25,1 

PRINT •Set Potenti oitters on Printer.... then Press any Key*| 
AS • " 
WILE AS » " 
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5 Reagent Jet Printer PABE 
•Pattern FrintioQ W-I7 

08; 49 

Offset Data Source Line IBH Personal Coeouttr BASIC Coipiier V2 

0780 047A W * INKEYI 

70 07BA 047A KHD 

0780 047A LOCATE 25 t l:PRIHT SPACE! (79) j 

07AA 047A 

07AA 047A 'enter drop piraieters into burr-brom board 

07AA 047A TEHP = AtKIJ 10,01: CALL SET.OOT. RATE (TEHP) 

0703 047A TEHP * 5:CAU SET* DOT.V IDTH (TEHP) 

75 07EO 047A TEHP ■ REM (2,0): CALL SET. STROBE. DELAY (TEHP) 

0619 047A CfiliOOT.QH 

0825 047A 

0825 047A TEHPX « 4 

032C 047C CALL OIBITAL-O'JT(TEHPl) 

0B3C 047C TEXPX ■ 0: >lie RESET line 

20 0643 047C CALL DlBITAL-OUTtTEHPl) 

0653 047C TEHPX • 4 

06SA 047C CALL DIB1TAL.0UTITEHPX) 

086A 047C 

086A 047C U « CIHT(HEWJtl,0) • 255 / 150): 'sit pulse aiphtude by pulsing HIGHER signal JI nuiber of tins 

0893 047E FOR II » 1 TO A 

08A0 0480 TEKPX » 6: 'set HIGHER true 

08A7 0480 CALL DI6ITAL.3UTITERPX) 

0BB7 04B0 TEKPX * 4: 'set HIGHER false 

08BE 0480 CALL DIGITAL. OUT IIEHPI) 

OBCE 0480 NEXT IX 

30 06E0 0482 

08EO 048? 'eitablish COM: and initialize plotter 

OBEO 0462 OPEK °CBU:24Q0,H,8,:,3 655:3' AS II 

08F2 0482 PRIKT ll v ';:UECS,EF7I l ji*| 

0902 0482 

0902 0462 'love noz:le offset and establish oei origin 

35 0902 0482 PRUT 11, 'AO 1 ; 

0912 0482 

0912 0482 'calculate roWcoluin location^ aove there, and set net origin 

0912 0482 It • «ENUIi2 f 0M) • iKEMM4 t 0» / 0.0051 

0954 0484 TI * HIEKUII3,0I-I1 • ir.EMJCIS,0) / 0.005) 

0996 0486 PRIHT •l t IXjlX$-0 , i 

40 0984 0486 

0984 0486 'print the pattern using repeat count 

09B4 . 0466 REPYX = ftEHU(8,0) / 0.005 

0907 0488 REPIX » HEWM9,0> / 0,005 

09FA 048A 

09F A 048A FDR REPEAIX * 0 TO HENU(7,0) 

45 0A1C 04BC 

0A1C 048C 'print the pattern 

OAIC 048C WR CT2 > 0 10 ELNUHX - I 

0A2A 0490 ON SWDATXICTX,0> GDSUB PL1NE, PRECT, FSRECT, PCIRa 

0A4C 0492 HEN CTX 

OAJE 0492 

50 0A5E 0492 PRIHT II, 'A^O, 1 ;: 'return to origin 

0A6E 0492 PRIHT 61, REPIX; REPYX; '0';: 'eove to neit pattern 

0A3C 0492 HEXT REPEATX 

OAAl 0494 

OAAI 0494 PRIHT ll/H'j: 'return plotter to original HOWE 

OABl 0494 
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5 Rttqtftt Jit »nnttr 

09-17 
08t 49 



70 



15 



20 



25 



30 



35 



40 



45 



SO 



55 







utt sit 


bit 2 


Scjrci Lini M Ptrionil Coiputtr 


OAS] 


04"4 




l** ncr lit 'disahli toil! 


a»bb 
OABB 


04** 






Af SB 


W94 




ornrtu 


a • or 
OhfiL 


0494 






OABC 


0494 


riiht* 




OACl 


04?' 




rUHl 1 1 f BblWtl 1 h i|» 1 fc| A/ | 9WKVHI * Iblfcf 1 * ■ ¥ f 


ABA* 


ow 




pot vy it SfvtflmrTY 21 • "U*? 

miA 1 ■ If 9bA*M l ft HI ■ « *J f SUnilfl 1 fc ILI *|«fJ y V 1 


Q845 


ftlOl 

WY4 




bCYlIM 

KtlUhH 


Afilfi 


A1C1 






0B49 


u494 


FfcLtt : 




OEAE 

AT. OA 


0494 
04i4 




ryniUT Al CTUhAT* Ifll 11 ■ CPL"1AT1 f fit 1t«*Mt 

PfijNT 1 l|5LfllmlZlbUf2ifSnyiil 2(£I1,]J) V J 

p*iut it srvn&Ttini 11 • strati trn 11 • 


OBCC 


0494 




001 VT 11 SCKBA7TICTT ^•StKDftTKCTC Jh 
rnjAi 1 1 |3t nun t * iw i ( svhubi k vui | 










0144 


MOl 




ppiuT 11 crunATTirTT WDAT1ICT1 li» , U , S 


npoi 


MOl 




KtlUM 


CUBA 








0C8A 


Alfii 

0494 


dpiopi * 




AMP 

0C3F 


0494 




DAnuic? a cpDf fCPVflTTirT? 'ucftfftiTTlPTT 11 1*5 * ISCNfiATllCTl 4J-SCOTKCT1 2)J*2) 


0D1A 


0496 




rnlNI 11, Lt JsLHUKU vLXUyli JaUiwHl |niwlv9*f 


QDfcJ 


0496 




DCTIIDV 


0D67 


0496 






OD67 


0496 


rsRtLi: 




0D6C 


0496 




t-m m W»HfijiT* # at* li.fvv • CPvniTYfPTY 91 

SIZ * SCfiuATiiCT»,4i:tIl * SuNDAuiLT&fZ] 


ODAO 


049A 




Oil * OCNUaI Albi 4|»< S 1 1 * * atrtUHIilwlif 1J 


ODD* 


04 9E 




ID CM /• Ct? turu ST* a CrVftfiTtfPTT ^l«CTT s CP^nAT*. fPTI 11 


OEI5 


Aior 
Q4>fc 




IF feYZ '* 5TZ \htS ai. * aLhufllilCiX,I)Ittl * StNUhlllHl f aJ 


0E*6 


04 9E 






C£l6 


049E 




r Kill 1 11,3^4, 2U, 4 v 


OE74 


04 9E 






Am 
Ot7* 


Aire 
04 *t 




lr til 3*i )- tT- Ml intM ouaUtl altri tut euaUB altri 




use 






0E9D 


A1BC 

04« 






At Af\ 

OtAD 


AlOC 

04 Yc 




BPTUPU 


Ami 

OtBI 


04 Sc 






OtBI 


AlDf 

04 it 


CTrvvi 

SI trli 






nice 
WYt 




PRINT 11 fI7.«5YT« 
mini fifbi*|ai*( 


At PC 






aii * ai4 * i 


QUI/ 


Wit 




1F SYZ > EY1 THtM RCTUtt 


AfCB 
Uttl 


AJOC 




PRINT t; v EIX|SVliSUiSYZi 


wrut 






sn « sn ♦ i 


QFU 


0491 




IF SYl > EYI THEM RXTURW 


one 


om 




nW IL,S1I;SY1; 


0F40 


0491 




SOTO STEPY 


0F44- 


0491 






0F44 


049E 


STEP!: 




0F49 


049E 




FR1KT tl t 51X;£YI; 


0F61 


049E 




sn « su ♦ j 


0F4A 


049E 




IF SIX ) EIX THEM RETURR 


0F7B 


049E 




PRINT 41 t SniEn;SU;SYX5 


0FA1 


049E 




SIX • SIX ♦ 1 


OFAA 


049E 




IF SIX ) EIX THEK RtTURK 


OFBB 


049E 




PRINT ll,SIZ f SYX( 


OF03 


049E 




BOTO STEP! 
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5 Reagent Jit Printer Mi 
?attern Printing 09-17 

0Bt4! 

Offset Data Source Lint IW p * r$0Ml Cciouter BASIC Cotpiler V2 



70 



T5 



20 



25 



30 



35 



40 



45 



60 



ACM 






AfM 

Or 0/ 




Ntl..yiu; in 18 010 ltd In jeilD*, poini iu «nu nnjunum 


ami* 
OrDL 


A J DC 

049c 


mi AD 11 AtCRCMD niCFRCNtl 


nrcr 
OFtt 


A J DC 

04vc 


■full* * aCUItV x MfCT 

RcNUI 1 ncHul ♦ Dlrrl 


QFrA 


04vc 


»e «rutn - 1 ft TUf V If lltIT s B 


10QC 


049E 


tr M-Mir* - It TUTU KTWIff * O 


101E 


049E 


Ir BEHUX y 15 THEN KtmJI * 15 


1030 


049E 


COLOR 0,7:5DSUb Di5?n:ku:RllUfiJ( 


1046 


049E 




1046 


049E 


INITIALIZE: 


1048 


049E 


'change to screen 0 and display lessacei 


1046 


049E 


ScRcEH CfOflfKCuLQA 7,v:u5.LOuhit lo v l7;rniNi loaomg seiecteo Heagent ano raiurn una ruts , 


10BF 


049E 


LOCATE u,33:PRINT Please nit... 


10A9 


049E 




10A9 


049E 


'initialise notepad on scrim 2 


10A9 


Al <5P 

049E 


SlRtEN 0,0,21 KUsJLULOfl 13 


10CE 


049E 


PRINT* Digital Notepad - - -All iaforution typed here is sent to the printer* 


1000 


049E 


N0TELINE1 * 3 


10E2 


04 9E 




10E2 


049E 


'initialise tenu arrays 


10E2 


049c 


RtbTDRE AnRDATA 


10E9 


049E 


FOR Ii-0 TO 17 


10EF 


049E 


READ RlHUIU1|0j ,rUNUS(u t l)l 


U1F 


04 9E 




1180 


04 9E 


NEXT 12 


1193 


04 St 




1193 


049c 


'get default reagent *;<e and read values 


1193 


049E 




1193 


049E 


UPtll KtAJtr.KJr rCR IhrUI Ad 11 


HA4 


049E 




1.B& 


0*62 


InrUT ll,KtAKAntl 


11C8 


04 A6 


n net n 


tier 


04A6 




11CF 


04A6 


norn rii rc cad fbDiiT *c it* Mm 4« 

uru rJit* tw ifui n: get reagent oata 


UEO 


04A6 


tUDllT II V?UMIA ftl« '!>■>■. >» u 

input ii/.tJiuiOjDJ: irequency 


1200 


AIA1 

QJA6 


INrUI 11 ,ntMuil,ult aipiituoe 


1223 


04A6 


inruT ii^icNUUfOi: strobe delay 


1911 




IKPUT 11 RfKUd 01* 'sulci Mtrltli 
mrui ii «alhvi*),vi ■ puisi 1110111 


126? 


04W 


INPUT lUREHUM.O): 'rise till 


128C 


04A4 


INPUT tl.RENUl^Ol; Mall tin 


12B1 


04A4 


CLOSE 11 


1268 


04A6 




12BB 


04A6 


'get default pattern Hie and read values 


1268 


04A6 




12B8 


04A6 


OPEN •PATDEF.RJP' FOR 1NFUT AS 11 


12C9 


04A& 


INPUT UTILES 


I2DB 


04A& 


INPUT •l.PATWREf 


12ED 


04AA 


CLOSE 11 


12F4 


04AA 






04AA 


OPEN FILES FOR IffUT AS 11: 'get pattern data 


1305 


04AA 


INPUT HtELSUSl 


1317 


04AA 


INPUT ll t R£NU(6,0)2 'grid 


133A 


04AA 


INPUT il.AENUtf.Ok 'repeat count 


133D 


04AA 


INPUT ll.RWB.Oh 'x offset 
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70 



75 



20 



25 



30 



35 



40 



45 



50 



Reagent Jet Printer 




Pattern Printing 




Wfset 


Data South Una IM Personal Coeouter EhSIC 


1380 


04 RA 


iNPOT ll.JlEMH9.0ii *Y oftiit 


13A3 


04AA 


FDR 11 s 0 10 ELSIM-1 


12B1 


04 AC 


FOR Jl * 0 TO 5 


1367 


04AC 


INPUT • 1 I SCNDATIU1,J1> 


13DB 


04 AC 


next n 


13EB 


04AC 


KIT II 


m 


04AC 


CLOSE tl 


1404 


04 AC 




1404 


C4AC 


'sit reaaioing paraiatari in aenu array 


1404 


MAC 




1404 


04AC 


nENUU2,0l * Is rw 1 


1420 


046C 


HEMI(13 f OI » 1: 'toliiw 1 


143C 


04AC 


HENUI14,01» 0: Von spacing 


145B 


04AC 


HEWJ(15,0) » Oj 'colutn spacing 


1474 


04AC 




1474 


04AC 


'change active displayed screen tn screen 0 to dra« and display parameters 


1474 


04AC 




1474 


04AC 


SCREEN 0,0,0,1:015 


1491 


04AC 




1491 


04AC 


COLOR HiLOCATE ! t J5:PlW! 'REAGENT PR1NTIKS 1 ; 


1462 


04AC 


COLOR 9 


14B9 


04AC 


FOR l»2 TO 79 


UC3 


04AC 


LOCATE 3,I:PRINT CHRIU96I;; LOCATE 5 t I:PRllTI CHRS1205)*:L0CATE 1B,I;PR]NT CHRIU94); 


1523 


04B0 


NEXT I 


153E 


04B0 


FOR 1*4 TO 17 


1548 


04B0 


LOCATE I,l:FBIh; CHRII 17?1 ;: LOCATE IMPRINT CHR$ 1 1W);: LOCATE I,54;PRINT CKRM1B6I; 




RIHT CHRK179I; 


15CB 


04B0 


NEXT I 


15E6 


04B0 


RESTORE TABLE 


15ED 


04B0 


FOR 1*1 TO 12 


15F7 


04B0 


READ RI,C:.r.:i;:;TE R1,CX:PRIRT CHRIUH>| 


H2A 


04B6 


NEXT 1 


1645 


04B6 




1645 


04Bo 


'display 16 aenu choices in yelloe 


U45 


04B6 




U45 


04B6 


CSU3R 14,0 


1651 


04B6 


FOR KEKUI « 0 TO 15 


1657 


04B4 


60SUB DISPREW 


USD 


04U 


NEXT RENUI 


166D 


048* 




mo 


04B6 


'sit for first aenu entry and Majhlight it 


mo 


0416 


RE1PJ1 * OiCOLOR 0,7 


1460 


04B6 


60SUB DISPREKU 


1686 


04B6 




1666 


04B6 


'print three headings and instructions 


16B6 


04B6 


COLOR 10,0 


1692 


04U 


LOCATE 4,l4.3-LEX[REANAnEn/;;PR!XT KEANABEl) 


16C1 


04B6 


LOCATE 4 ! 4RENlPATKAnEI>/2:PRINT PATHAht$| 


16F0 


04B6 


LOCATE 4,60l PB1KT "PRINT LOCATION*; 


170A 


0486 


COLOR 7: LOCATE H,:0:MM "Jsi •srfOLOR 15:PR1NT CKRI(27);CKRI(32)iCHRII261| 


170ft 


04B6 


1754 


04BA 


PRINT CHRH32);CKRI(i4];CHRll3:):CHR$(25)i:COL0R 7:PRIN7 1 to position highlighted cursor*} 


1793 


04EA 


LOCATE 20,18:PRINT 'Use •jtCCLOR 15:PR1NT •♦•-COLOR TiPRINT 1 or 'fiCOLOR 15:PR1NT 


17E9 


D4B6 


COLOR 7:PRlKT f to scroll current value up or oWj 



PAGE 

09-17 

06:4f 
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70 



T5 



20 mi 

Anoint J«t hintir 0 ^ I7 . 
•Pattira Printing 08>49s 

IBK Pirsonil Conputtr BASIC Coioilir V2. 

Sour ci Lint 

25 iffl UM LK«TE K.wHMIT 'Us. •;:COU» ttPUII T|« Mint ' to »n.t ptt.r. er •? 

CSLOB UiPfW 'EV.COIOR 7s?RIHT 1 to nit to print »nu i 
KM ' or 'itOU* lStfSINT ■S'isCOUK 7!r8MT ' to um nowpod j 

•»t scrna to oimi 3»*t cmttd ud nit 

30 inc dim scsew 0,0,0,0 

RETURN 



Wilt 


Data 


17F0 


cm 


183F 


0466 


1867 


cm 


189C 


0486 


189C 


0486 


189C 


MBA 


S89C 


D4BA 


1661 


04B6 


1685 


0486 


1665 


0466 


186A 


MS4 


16SE 


04B6 


1936 


0466 


1954 


0486 


1966 


0466 


me 


0466 


19BF 


0486 



DISPEKf: 

IF NENUl * 10 Ofl HENUZ = 11 TREK RETURN 
LOCATE (ftEHUZ W0 61*2*7, (INT (KWB/6)i2B»2)-2»I«T«!E»BX/12) 
35 1938 0466 WW KSaf«BWl,OI 

LOCATE IREHUZ ROD 61 *2*7 t »ENUlHEWJl f 41 
nW US1N6 HENUf IKEHUZ, U ;HQBI(HENUX f 01 $ 
RETURN 
REn 5PA5E 

40 



45 



60 



55 



56 
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5 



'StiQiat hi Printtr PASE 
TO PjtUra Ffintiw 09*17 

08i4S 

OHsrt Data Sotirct lint IBB PiymmI Coiputir BASK Coipiltr Ti 





WBi 


-iiHtiiffiit :au uses et this rddcle «»»»»«« 


WIF 


WW 






19BF 


WW 






19C4 


m 


DATA *Cst Frtqunty 


feVrUMVOOOM.l.H 


19C6 


WB6 


DATA -ftaplitsdi 


V Ytli\ 150.0,1,19 


19C8 


WW 


WTS 'Strofct Sfi*y 


uSViUM.r,!5999.5,.5..5 


19CA 


MM 


DATA •PuHt Hidta 




19CC 


WW 


DATA '«» Tiu 


, l , HI , ,999 l 0 1 l f i9 


m 


WW 


DATA •Fall Tiu 


Ytit'iffWitt 


19D0 


0484 


DATA *trid Si:t 


iB t l *t.tll a „00:,.005,.005,45 


19D2 


WW 


DATA 'Kaput Count 


VM\W t 0,!,47 




WW 


DATA M Axis Offiet 


io , ,M.Mf,2,0,.0O5»43 


itu 


04B4 


DATA t Axis OH set 


ia','1, 2,0, .005,45 


19DB 


WW 


DATA ",",0,0,0,0 




ni; 




DATA ",",0,0,0,0 




HOC 


WW 


DATA "Rot to Print 


'•'M', 99,1, 1,74 


HOE 


WW 


DATA 'Cohan to Print 


VWi*'. 1,1,74 


19E0 


ww 


DATA *Rot Spacing 


inYMM',3,0,.005,72 


19E2 


WW 


DATA 'Coluan Spacing 


io'i'Liir^tOfMin 


I9E4 


WW 


DATA ",",0,0,0,0 




19E6 


WW 


DATA ",",0,0,0,0 




heb 


WW 






19EB 


WW 


TARE: 




I9ED 


WW 


DATA 3,1,216 




19EF 


WW 


DATA 3,28,210 




\m 


WW 


DATA 3,54,210 




\m 


WW 


DATA 3,60,191 




m 


WW 


DATA 5,1,198 




19F7 


WW 


DATA 5,28,206 




I9F9 


WW 


DATA 5,54 f 20i 




19FB 


WW 


DATA 5,80,161 




m 


WW 


DATA 18,1,192 




19FF 


WW 


DATA 18,28,206 




1A01 


WW 


DATA 18,54,208 




lftOJ 


WW 


DATA 15,80,217 




IA05 


WW 






iaos 


WB» 


EOT SUB 




1AX 


WW 






IMC 


WW 






2049 


WW 







5W24 lyttt Availaut 
447U Bytti Fr» 

50 

0 Varniog Errcris) 
0 Sevtre ErrorUl 



55 



57 
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Reasest 


Jet Printer pfiSE * 


Reagent Filino 


07-09-86 






15:04:35 


Dffse: 


Jcti 


c 3 .,r M , ; cfi IBH Personal Coaouter BASIC CoipiUr V2.00 


VVJV 




=:> $TiTLE:'Ke.;iat Jet Printer' SSUBTITLE; 'Reagent Filing' 


0030 


0506 


7IajLE - •SEAFILE* File Hanoi ing for reagents 


003B 


00ji 




UUw 




'tiWr - H. Af Enevold 


VvvV 


VwWQ 




Vvvv 




CBPYfclStfT JC1 1S85 ABBOTT LABORATORIES 


vvw 


*A1A 


* 




vvvo 


rEVlSiSK - 1.1 03-07-86 KAE Added notes and description 


nn 7 .fl 


VVVO 


1.0 02-M-B6 KAE Creation of initial code 


AMA 

VVw 


VVVO 




AM A 


AAA! 
VVVO 


"SYSTEM - This code can only be compiled by the BASCOfl 


0030 

VvvV 


COOo 


CflKFILER, it will not run under the INTERPRETER!! 




VVVO 




vuw 


000& 

vvVO 


'DESCRIPTION: 

ifci/V*tAI •drill 


Ww 


vvvo 


This iodule allow Hie handling for reagents* When inv 






oked. it di solavs 


VVw 


A46A 


the current contents of the reagent directory in 4 colu 






in? of 20 entries 

»Jl3 Wl *V dill iS* 


WW 


nao& 


each. The reagent nhicn is currently selected for prin 






Hfifl it urkeri hv 


a at. a 


vvUO 


' an asterisk to the left of the reagent naie. After the 






dirwtnrv is listed 


0030 


flOOi 


the user is presented with 5 aenu choices. The left an 






d right arrow are 


0030 

WW 


coot 

vvvo 


used to highlight aenu iteas and the enter key is used 






to invoice action* 


0030 

WW 


00 06 


The aenu choices and tfieir actions are: 


0030 


ooos 




0030 


0006 


DELETE - Reiove a reagent hie froa the directo 


WW 


00 06 


rv 

COPY - Copy a reagent file to a new reagent n 






aae, saving the old reagent 


WW 


00 OA 
vvvo 


RENAME - Change the naie of the reagent without 






changing the reaoent itself 


0030 


0006 


SELECT - Selct a reagent for printing 


VVw 


vvvo 


EXIT - Return to the- tain aenu 


AA>A 
Vvw 


VvVO 




A030 

WW 


wot 


'DATA DICTIDHARY 


AA1.A 
VVw 


Vvvv 


TYPE! Vhich type of valid key «as pushed 


A MA 
VVw 


WV0 


' HEKUI Vhich ihiii itea is being pointer to (0*4) 


VVw 


VVVO 


D1FF1 Distance to cove rlEKUZ at left or right arro 


0036 


OOCe 


\f 

FLABl Error type 0-4 


UUw 


VVVO 


POINTER! Position ot REAKAHEf in directory list 


Vwv 


vvvo 


REANUKZ Ruaber of reagent naaes in directory 






list 

1 1 31 


0030 


0Qv£ 


TEXPI Storage for integers during reagent copy 


0030 


0006 


At Hi sc. input string 


0030 


OOvo 


FUNCTI Printed at bottoi of screen during proapt fo 






r reagent naie 


0030 


0006 


RESNAKEJ Reagent nace currently being worked on 


0030 


0G06 


SELSAnEI Reagent naae currently selected for printing 


0030 


0006 


FILES Filename of reagent flita file 


0030 


GC06 


Sri LEI Filenaae tor source reagent data file used d 
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Feigent Jet Printer PAGE 





ruing 


•J r •VI DO 






1 C . Ala 


CM IK 


js:a 


Source Line IB^ Personal- Ccaouier BASIC Cowiier V2.0O 






urino csdy 


*s r\*» ft 


WCo 


&~ILE* 'i'lEnase tor destination reagent data tile u 






sea during ccpy 


0050 




VEiKASEI ^e* reagent na*e tor C0r( «nd RtNflnt 


0030 


0006 


TEr,?$ Reacent nanes are held here as the directory 






is ieing re-written 


0030 


vvwo 


' nryrtj !»sc+ inafinn -filpnaip inert uhilp rnnvinn rpan 






ent data lilts 


0030 


0004 


ftESSASEI A aessage printed at the bottoa of the scree 


0030 


OOtt 


n 

KEHISM.l) Array of strings containing the short and Id 






nt) tenu naaes 


0030 


0006 


ERRflSBJ Message printed when any error occurs 


0030 


0004 


ERRS Appended to ERRKS6* to indicate nature of er 






for 


0030 


0004 


RE* IPASE 


Reagent 


Jet Printer PABE 3 


Reagent 


Film? 


07-09-Bd 






15:04:35 


uftset 


DitJ 


Source Line IB3 Personal Coaouter BASIC Coioiier V2.C0 


0030 


0004 


SwB RESsZBT.FILE STATIC 


00A7 


CC04 




0047 


0004 


&T-5UB INITIALIZE 


AA 1 ft 

004D 


0004 




0054 


MOB 




0054 


0008 


WILE TYPE! O 3 


005F 


0008 


AS s " 


0069 


oooc 


WHILE A$ * " 


007B 


woe 


Al * INKEYS 


0082 


we: 


KHD 


0085 


oooc 


IF At = CHRSIO) ♦ CKRK75) THEN TYPES * J: 






'left arrow 


00AA 


oooc 


IF Al = CHRSIO) ♦ CHRN77) THEH TYPE! * 2: 






'right arrow 


OCCF 


MOC 


IF At * CHRSU3I THEN IYPEI * 3s 






'<cr> to execute selection 


00E9 


OOOC 




00E? 


oooc 


ON TYPEI 60SUB U, T2, T3 


0OFB 


oooc 


VEND 


00FC 


OOOC 




00FC 


oooc 


EI1T SUB 


0100 


oooc 




0100 


oooc 


REK SPftSE 
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Reagent hi Printer ™« ' 

Reaaent Filino 07-09-34 

15s04i35 



Offset 


Data 


Source Line IE! 1 Persenai Coacuter BAsIC Coapili 


0100 


OOCC 


iHiiaaa 3)B-'G , JTlf.'£a f»H TKI= SS8ULE ******** 


OiOO 


OOOC 






0100 


MOD 


Tli 


"eft arroit 


0105 


OOOC 




TffEl = 0 


010C 


OOOC 




IF HESL1 * 0 THEK RETURN 


011B 


OOOE 




. DIFF1 * -t 


0122 


0010 




SOS'JS ScH.SEKU 


012B 


0010 




return 


012C 


0010 






012: 


0010 


T2: 


'rubt arro« 


0131 


0010 




TTFEI * 0 " 


0133 


0010 




IF Oai * < THEN RETURN 


01A7 


0010 




DIFF1 » 1 


OHE 


0010 




6D3UB SiEN.flENU 


0154 


0010 




RETURN 


01SB 


0010 






01SB 


0010 


H: 


*<cr) (execute selected aenu itei) 


01SD 


0010 




LOCATE 15,1: F'RIKT SFACEtl79); 


017A 


0010 




ON SENUZ ♦ 1 GOSUB T3A, T3B, T3C, T3D, T3E 


01BF 


0010 




S03UB REKJ.ON 


0195 


0010 




RETURN 


0199 


0010 






0199 


0010 


REK JPAGE 
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Reigent Jet Printer PASE 5 

Reagent Filing 07-09-B6 

15:04:35 





Data 


Source Line IBn Personal Coiouter BA5IC Coepiler V2.00 


0199 


0010 


T3A: 'delete reagent 


019E 


0010 


TYPE! = 0 


01A5 


0010 


FUNCTi = •Delete 1 


OlfiF 


0014 


GOSUB GET. SOURCE 


01B5 


0014 


IF LENIREANAHE*) = 0 THEN RETURN 


01C7 


0018 


IF REANAflEI • BELuAliE* THEN FLAGI = 4:6DSU6 SHOW. ERROR; 






RETURN 


01E7 


001E 


BOEUB SEARCH 


OlED 


001E 


IF POINTER: = 0 THEN FLAGI * 1: GOSUB SHOK. ERROR: RETURN 


0209 


0020 




0209 


0020 


KESSAGEI * 'Deleting • ♦ REMAKES 4 1 Please Wait.. 

■ 


0220 


0024 


60SUB MESSAGE. ON 


0226 


0024 




cut 


0024 


'rewrite directory deleting REANAHEi as indicat 






ed by POINTERI 


0226 


0024 


KILL ■READIR.DLD* 


022D 


0024 


MAKE •READIR.RJP' AS •READIR.OLD* 


0237 


0024 


OPEN 'READIR.OLD* FOR INPUT AS 11 


0243 


0024 


OPEN 'READIR.RJP' FOR OUTPUT AS 12 


025A 


0024 




025A 


0024 


INPUT II, REANimi 


026C 


0026 


REANURZ = REANUHl - 1 


0275 


0026 


KRITE J2 f REAMS 


0286 


0026 




0286 


0026 


IF REANUW * 0 THEN GOTO DIR. DONE 


0295 


0026 


FOR 11 * 1 TO REANUni ♦ 1 


02A4 


0028 


INPUT ti.SEAK^EI 


02B6 


0028 


if ii <> pc:k;eri then print i2,reanahe* 


02D3 


002A 


NEIT II 


02E5 


002A 


* 


02E5 


002A 


DIR. DONE: 


02EA 


002A 


CLOSE 11: CLOSE 12 


02FB 


002A 




02F8 


002ft 


'reiove data file 


02FB 


002A 


FILEI * RIGHU(STRS(PO!NTERX),LEN(STR$(POINTERZ)1-1) ♦ 






'REA.RJP' 


031C 


002E 


KILL FILEI 


0323 


002E 




0323 


002E 


'renae retaining data files to laintain linked 






list to directory 


0323 


002E 


MILE (REANUKZ ♦ 1) ) POINTER! 


0333 


002E 


SFILES * RIGKT$(STR$IPOINTERMI,LEN(STR$(POINT 






ERWD-ll + 'REA^JP* 


0359 


0032 


DFILEI * R1SHTI (STRI (POINTERI) ,LEN ISTRt (POINTER 






IM-l) ♦ 'REA.RJP* 


037D 


0036 


MflHE SFILEt AS DFILEI 


0387 


0036 


POINTERI r POINTERI ♦ 1 


0390 


0036 


HERO 


0393 


0036 




0393 


0036 


60S3B HESSABE. 


0399 


0036 


REANMIE* * SELKAilEI 


03A3 


0036 


EOSUB T3DA 


03A9 


0036 


6CSUB OISP.DIR 
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Rsasent Jet Printer PME 6 

Reagent Filina 07-09-86 

15:04:35 

Offset Data Source Line 165 Personal Coisuter BASIC Compiler V2.00 



03AF 0036 RETURN 
0383 0036 

0383 0036 REM IPASE 
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Reagent Jet Printer PAGE 7 

Reaoent Filing 07-09-86 

15:04:35 

Offset Data Source Line IS" Personal Coiputer BASIC Cospiler V2.00 





AAT1 

0036 


73B; 'copy reagent 


A?BO 


AATI 

0036 


lYPtX = 0 


Uoor 


0036 


Jr KLnhunX 5 ou intn rLKOA ». o.DuauD aniin^ cnAUAt al iuf\n 




AATI 

003b 


PllUPTl iPnitii* 

functi s copy 


ATP* 


AA71 

0036 


605UB oEi.aUUKLt 


ATEB 
OwtD 


A ATI 

0036 


IF LLNlnLfiNnnt*) - U IhtH KtlUKN 


03FD 


O03& 


pa pi in rrADPU 

B05UB 5EARCK 


Ai AT 

0403 


AATi 

0036 


IE DAlklTrDT - A Tlim P l flCY - 1 •CACHE CUTiH FPPnP* K'PTIIPN 


041F 


AATI 

0036 




04 IF 


AATI 

0036 


PAPIIB CTT tlPU LfAMC 

fcOSUB bET.Htrf.NfiJit 


0425 


0036 


ip i pn i kiPLtit^wp^i _ a Turu OPTIIOU 

IF LENlNEWNAnEf) * 0 THEN RETURN 


AlTT 

0437 


AATA 

0Q3A 


ir i rururyiiAMrti \ \* Turn ri act • o.cncnc cunu CUDnOtft 






tlUKN 


A1C7 

045/ 


AATA 
0Q3A 




0437 


AATA 

003A 


nESSAbtf £ copying ■* Rthfifint* * to * NtiNnnt* ♦ 






■ Please wait..' 


AiTP 

047C 


Aft 7ft 

00 3 A 


papiib wrrPAec nit 

. BOSUB ntSSAoL.DN 


0482 


AA7A 

003ft 




04E2 


* A 7 A 

003A 


'add new naie at end of directory 


04S2 


AATA 

003A 


i/tt i tnPATvtn Ai At 

KILL READI R. OLD 


a inn 

0439 


AATA 

003A 


NARE RLADIR.RJP ns REnUlR.uLD 


0493 


AATA 

O03A 


ADPU • ©TAMD A* ni PP3 tllPIIT AC II 

OPEN READIR.OlO FOR InFUT AS 11 


04A4 


003A 


ABPU IBTAATO DID! f PI6 AllTBIIT AC 1? 

OPEN READIR.RJP FDR OUTPUT AS 12 


04B6 


AATA 

003A 




04B6 . 


AATA 

003A 


1UDHT 11 brAVIIII 

INPUT 11, KthHUrU 


U4lo 


AATA 

UU3H 




Aim 


003A 


WCTTT 1*9 CCAU1IM' 


04ti 


AATA 

0Q3A 




A iff ^ 

04E2 


AATA 

003A 


FOR IZ s I TO KthMuni • 1 


ft 1 P 4 

04F1 


Aft TP 

003C 


i von 7 ai 7 Pun* 

input ii,u"ps 


ACAT 

0503 


AAIA 

0040 


FRIfiT I2 9 J Lnrf 


ACI T 

0513 


AAIA 

0040 


urvT TT 
NtZT U 




AAJA 

0040 


tDttiT n uPuuAirri 
PRIHI I^NtiNAAtf 


APT? 

0535 


AAIA 

0040 






0040 


CLUbt fl:ClU5t 12 


0543 


0040 




nriT 

QD43 


AAJA 

0U4U 


create copy of data tue 


AC 1 7 

0j43 


AAIA 

0040 


rILW x KlbMIlUIR*lP0IHTtRII|LtNt5TKI(PUINTw^ ♦ 






■DfA DID* 

RtRtKJr 


A*It" 
036/ 


AAiA 


UTVC1I rt b DICUTt rCTD* fDrAUIIMVI t CUfCTDl/DrAUItMT) t.1 1 x 
NtlrlLL* * nlbnl » lb 1 IKtHhUnii , LtH lb 1 K5 (KtHKUnAJ 1^1/ ♦ 






•pr& oip» 


A*iOft 
UDoo 






Ujod 


AAI1 


urtn riLLi run inrui HD 11 


A^or 

UjtL 


AD 11 


UrLn ACPrlLLl rUn UUIrUI H3 fi 


05AE 


0044 




05AE 


0044 


INPUT I1JEKP 


05C0 


0048 


WRITE I2JEKP: 'frequency 


05D0 


0048 


INPUT ll,TEHP 


05E2 


004B 


WRITE I2,TEKP: 'pulse width 


05F2 


0048 


INPUT IIJEHP 


0604 


. C04B 


WRITE 12, TEMP: 'strobe deUy 


0&14 


004B 


INFUT IIJEHP 


0624 


0048 


WRITE I2JEHP: 'nozzle 


043i 


0043 
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PAEE 8 


Reagent Filing 




07-09-B6 






15:04:35 


Offset Dati 


Source Line IBM Personal Coiouter BASIC Coaailer V2.00 


0636 0048 


INPUT 11, TEMPI 




0648 0048 


PRINT 42,TENP4: 


'concentration 


0658 0048 


INPUT tlJEHPS 




066A 0948 


' PRINT l2,TENPis 


'density 


067A 0048 


INPUT 11, TEMPI 




066C 0048 


PRINT I2,THPI: 


'viscosity 


069C 0048 






069C 0048 


CLOSE *i: CLOSE 12 




06AA 0043 






06AA 0048 


GOSUB ncEsAGE.Orr 




06B0 0048 


EDSUB DISP.OIR 




06B6 5048 


RETURN 




06BA 0048 






06BA 0048 


REN IPABE 
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70 



20 



30 



AO 



45 



50 



Reiser.! Jet Printer PAGE 9 


Reagent Fiiir.o 


07-09-86 






15:04:55 


Offset 


Siti 


Source Line IBM Personal Coaputer BASIC Coipiler V2.00 


06BA 


C04S 


'ZZi 'Temae reagent 


OfcBF 


OC48 


TYPE! * 0 


06C6 


0048 


FUNCTI « 'Renaae' 


O6D0 


9043 


80SUB 6ET. SOURCE 


06D6 


0048 


IF LEMEANAHES) * 0 THEN RETURN 


OfcEB 


0G48 


EDSUB SEARCH 


06EE 


0048 


IF POINTER! * 0 THEN FLAB! = 1:60SUB SHUN. ERROR: RETURN 


070A 


0048 




070ft 


0048 


60SUB 6ET.HEW.NAHE 


0710 


0048 


IF LEKIKEHNAflEII ■ 0 THEN RETURN 


0722 


0048 


IF LENINENNAHES) > 15 THEN FLA6I * 2:E0SUB SHOW.ERR0A:R 






ETURN 


0742 


0048 


IF NEVNAHEs = REANAHEI THEN RETURN 


0755 


0048 


HESSA6ES = 'Renaaing ' ♦ REANAHEI ♦ 1 to • ♦ NEVNANEi ♦ 






' Pleise wait. . * 


07?fi 


0048 


60SUB HES5A6E.DI4 


0780 


0048 




0790 


0048 


'renaaing reagent niie in directory 


0780 


0048 


KILL •READIR.OLO* 


0787 


0048 


NAHE 'READIR.RJP" AS 'READIR.OLD* 


0791 


0048 ' 


OPEN 'READIR.OLO' FOR INPUT AS 11 


07A2 


0048 


OPEN 'READIR.RJP' FOR OUTPUT AS 12 


07B4 


0048 




0784 


0048 


INPUT 11, REANURX 


07C6 


0048 


WRITE t2,REANUni 


07D7 


0048 




07D7 


0048 


FOR 11 « I TO REANWI 


07E4 


0044 


INPUT IIJESFI 


07F6 


004A 


IF II <; POiStER: THEN PRINT 12, TEMPS 


0813 


004A 


IF 11 * P01K"RX THEN PRINT I2,NEHHAMES 


0630 


004A 


NEXT II 


0842 


004A 




0842 . 


004A 


CLOSE IhCLOSE 12 


0850 


004A 




0850 


O04A 


80SUB HESSAEE.DFF 


0854 


004A 


IF REANAHEI • SELNANES THEN REANANES = NEUNARESiBOSUB T 






3DA 


0B75 


004A 


60 SUB DISP.01R 


0878 


004* 


RETURN 


0B7F 


004A 




0B7F 


004A 


REM SPAEE 
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Reanent Jet Printer i - pftK 10 

Reagent Filing 

15:CA!35 



OffSBl 






une It.1 Personal Cooputer BASIC Coioiler V2.O0 


0B7F 






■=eiect rHBf.it for printing 




CG4fi 




-fr£l - 0 


VOOv 






rUSCTi - 'iBlirt' 


0895 


0C-4A 




SfiTJE EEL SOURCE 


0395 






IF LES'SEAHSREJI = C THEH RETURN 


OBfiD 


CC*A 




IF f££Hkttt « SEIMAHE* THEH RETURN 


OGCO 






SOSiB T3tA 


03C6 


vO«A 




6DS!» B1SP.DIR 


oecc 


sou 




RETURN 


0800 








0800 


CC4A 


to* 




0805 






GCSS SEARCH 


0BDE 


004ft 




IF PfllKTERI ' 0 THEN FLABI = 1:6DSUB SHOX.ERRORiRETURN 


08F7 


004A 






08F7 


004A 


• 


HSSASE* = 'Selecting ' + REANAHEI ♦ ' Please Nait. 


090E 


004A 




S3 SUB HESSAGE.CN 


0914 


004A 






0914 


C04A 




'change entrys in reagent default Hie READEF.R 










0914 


004A 




OPEN •KADEF-RdP" FOR OUTPUT AS 11 


0926 


004A 




FILE* * RI£H»(STRt;fOINTERI),LES(STR$(POINTERI))-ll ♦ 






•P.EA.WP' 


094A 


004* 






094A 


C04A 




PRINT H.FILEI 


095ft 


0C4A 




PR1HT tl.REAKAHE* 


096ft 


C04A 






096A 


»4A 




CLOSE 11 


0971 


COtt 




EOSUB KESSABE.SFF 


0977 


004A 




RETURN 


097B 


W4A 






0978 


0044 


T3E: 


'exit reagent filing 


0980 


COW 




RETURN 


098* 


O04A 






0984 


W4A 


RES 1PARE 
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PABE 11 


Reagent Filinq 




07-09-B6 








15:04:35 


Offset 




source line IBn Personal Cosouter BASIC Coapiler V2.00 


09B< 


v\iw 


se^:h 


• 
• 


09B9 


C04A 




rCIKTERI J 0 


0990 


WW 




CFEN 'READ1R.RJP* FOR INPUT AS tl 


G9A1 


WW 




IKPUT tl,REANUHXs' get nuiber of reagents in dire: 






tory 




V7DJ 


"lit 




IF REM! -- 0 THEN CLOSE 11: RETURN 


aopo 


vVw 




tehpi « •• 


V7U»> 


WW 




WHILE (POINTER! < REANUH1I AND (REANAHEf <> TEHPSI 


VTTp 


WW 




LINE INPUT tl.TEHPt 




feul A 
WW 




POINTER! = POINTER! ♦ 1 


CAM 






HERD 


QAM 


OG4A 




IF REANAHEf 0 TEHPS THEN P0INTER1 * 0 


0A2A 


004A 




CLOSE tl 


0A31 


004A 




RETURN 


IIU \T 


Cxi mL 

win 






0A25 


00 4 A 

WW 


BET. SOURCE: 


0A3A 


WW 




LOCATE 25,1:CDL0R 1S,0:PRINT 'Enter Reagent Nate to a FU 






NCTI' 


«. 


VhOU 


WW 




LINE INPUT} ",REAKAHEI 


UH/H 


AA1A 
Ww 




LOCATE 25,1:PR1NT SPACEH79); 


AAS7 

vh7/ 


WW 




RETURN 


0A9B 


004A 






0A9R 
vn7D 


WW 


6ET.NEW. WAHEl 


vnnv 


OA4A 
win 




LOCATE 25,1: COLOR I5,0:PRINT "Enter New Reagent Naae 


0AC& 


WW 




LINE INPUT; ",NE»HWIE* 


0AD4 


004A 




LOCATE 25,1:FR1NT S?*CEt(79>« 


0AF1 


004A 




RETURN 


OAFS 


C04A 

win 








WW 


C1SP.D1R: 'display reaoent directory in 4 colums of 20 r 






o«s 




OAFA 


WW 




'read selected reagent into SELNAHEt 


OAFA 


0(l4A 
ww 




OPEN 'REAOEF.RJP' FOR INPUT AS tl 


OBOE 


Q04A 




INPUT It.SELNAHESs 'read and discard data file nai 


aria 

vDiv 


MIA 


e 


INPUT 11, SELNAHEt: 'read and save reaoent naae 


0B2F 


004A 




CLOSE tl 


0B36 


004A 








OAiA 




OPEN 'AEAOIR.RJP' FOR INPUT AS tl 


0&47 


004A 
win 




INPUT t I, REANUHI:' read nuiber of reagents 


OK? 


WW 




HESSABES » 'Reading Reagent Directory Please Naif 


vDOO 


00 4A 




6DBUB HESSASE.ON 


VDD7 


DMA 
vinn 




FLA61 > 0 


Up/ V 


G04A 


1 


TEKP1 ' REANUHI - is IF REANUHI < 80 THEN TEMPI ' REANUR 


0B8R 

VP OP 


004C 




FOR 11 » 0 TO TEHP1 


0697 


M4r 
wis 




LOCATE (1! HOD 20Hl,UNT(II/20)i20)+l 


OBCA 
vpwn 


00 4£ 




PRINT SPACES 118); 


OBDfl 


004E 




NEXT 11 


OPEC 


004E 






OBEC 


004E 




FOR 11 - 0 10 REANUHI - 1 


OBFA 


0050 




INPUT 11,REANAHE$ 


ococ 


OC50 




LOCATE (11 HOD 201*1, 1 INT (U/201 1201+3 


0C3F 


0050 




PRINT REANAHEI; 


0C4C 


0050 




IF REANAHES = SELNAHEt THEN LOCATE (R HOD 20l« 
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0C98 


0050 


wit i: 


ULBV 


AA'.A 

VVJV 


n r&r n 


nrR7 


AA r .fl 




uusy 


vU« J 


P 1 1 U* n 


ULL. 






vuLi 


M*tt • 




APf I 




urn ntn'jt^f 


nrr? 

VUL/ 


AA7R 


rv»hJHV ( VJ bficic 


ftpnr 

VlUt 


AA7R 
vv/O 


PhkUttd Ms *KcanvA 2 rPaAcnT flip frnn thp difprtnrv 1 
nCnj«fv«Af rittUfC s 1 ntfCDk Tile 11 ui me uiicl.ui j 


utrn 


0073 




ams 


uu78 


^rynt/l 1] s *Ccav a rPcOMt -file to a new rtaoent naie 

* 


AfiT 


£A7R 
Vv/ 0 




aimr 

UUSP 


AA7R 
UU/D 


11 z Ten a its a rcanpnt lilt in thp rfirprfnrv* 
ncnU«ii«ii fitnaie ■ rtra^eni Tile 111 111c uiicbkuij 


UUOi 






nnoi 

UJJon 


AA70 
UU/o 




UlmV 


AA7R 

UU/D 




Anna 


AA7R 
UU/O 


nt»»u* ii * Act urn 10 ine liin irnu 


nnn7 

Ui/U/ 


UU/O 




ATiTI7 
UUU/ 


AA70 
VV/O 




nfrCa 

Ul/tn 


AA7R 
UU/O 


1 nraiF ?1 1 

LUUlIt iifl 


UUr/ 


AA7R 
UU/O 


rra T7 s 1 m Rn 

ruft ja ■ 1 iu ou 


nnrr 


AA7R 
UV/O 


PnlWl a n*« 
riuni v | 


Ucl/D 


AA7R 
Uv/O 


NCI) li 


nn d 

wtlD 


AA7fl 

Vv/O 






vU/O 


rnp iTvr» s a Tn 1 


AP71 
UC.il 


&A7R 
vv/O 


CU3U0 ncnu«yrr 


Uti.i 


AA7H 
UU/O 


Iff IT MTVITI 


APT? 


VU/O 




nn7 


AA7R 


enens nict> nip 


AP'iD 

ULJU 


0079 
vv/c 


IF FLAK ) 0 1HEN K^Ud SHOW ERROR 




A07R 

Vv/O 


liLflU* ~ 


ap^ 


AQ7G 

vv/O 


casus SFVU.CV 


firm 


AC7R 




UtJO 


Vv/O 


l\i 1 UAM 


new 


AA7R 

Wv/O 






AA7R 




npu 


Vv > O 


SDSUfi tffsa OFF 


vCOn 


007B 




0F7o 


0073 




Vt/V» 




RETURK 


0E80 


0078 




OEBO 


0078 


(CKU.DHi 


0E85 


0078 


LOCATE 22, IROtiXi 10) M8 


0E9C 


0078 


COLOR 0,7 


OEfiB 


0078 


FR1KT RESaJlKEVJZ.O)} 


0EC4 


007B 


LOCATE 2S,W-LE»(rET;UJt*.L'ttn,H>/2 


OEFA 


0078 


COLOR 7,0 


OF06 


0078 


PRINT »£KIiS(HENU:,l); 


0F25 


007B 


RETURN 


0F2? 


007B 




0F29 


0078 


BENU.CFF: 


0F2E 


0078 


LOCATE 22,IKSBW0I«1B 
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&sa§snt Jet Printer PA6E 13 


Reagent Filing 


U/ U7"30 






15* 04:35 






Cnnrro i *Aft ?rM Pofcnnjl Caiautpr BASIC CofDiler V2.00 

DOUrtc Lille * Dn rBT bulidl lubuulci uauju wu*yj iti uivv 




00/8 


rn ns tin 


nr*i 


AA7D 

00/8 


CSTL'T MCV'it / KtUH? AJ • 
FnlM fit NU* vi j 


ftf*F 


AA70 
00/0 


ifiroTP ? e ift-l FNfXrNII* [MFMUt MW9 
LUUH IC t LLi" InLnu* InLiWfc, 1 M / & 


Urflo 


AA70 
0078 


pDTUT cpupFtii rwiMrwiti ikfwiit tint 


OFCB 


0078 


htiUnn 


OFCC 


0078 




OFCC 


007E 


SHDK. ERROR! 


0FD1 


0078 


nn rt nnmiA rm pbb P57 TBI 

ON FLAEX GDSUB ERl, ER2, Eh3, ERA 


0F£2 


0078 


ERRnSB* - ERRS ♦ Strike any key.. 


0FF2 


0080 


LOCATE 24 , 40-LEN icRnnSBS) /2 


1014 


0080 


COLOR 13,0 


1 ATA 


Quay 


rniNl LnhriDbl} 


1QZD 


AAOA 

OQoO 


ft? * 


lUJ/ 


ouuo 


UUTt C fit e 




AAOA 

OObv 


fit - IWkTYt 


1 AC A 

1050 


AAOA 

0080 


utirn 


I ACT 

1053 


0080 


emit ncfiCflcr nrr 


1 ACQ 

105 V 


AABA 

0080 




105D 


0080 




105D 


A A Pi A 

0080 


PB 4 . 

ERl: 


1062 


0080 


tr.Rf = nLHBhntt ♦ Not rouno in me yirectory 


1 AT} 

1072 


Anon 

00B0 


RtTURn 


1076 


00B0 




1076 


AABA 

00B0 




107B 


OOBO 


tnKi * Keagent Naie is too Long us characters iau 


1085 


AABA 

OOBO 


Cf T1IDU 

KtlURH 


1CB9 


0080 




1089 


0080 


POT. 


108E 


0080 


thhS - Directory 15 rail ioO reagents lax.) 


1098 


0080 


RtluRN 




AADA 

OOBO 




109C 


0080 


Ln4S 




AAOA 

OOBO 


root - if ,...1 y.^.i. cci r pt<i ■■.■nmt u , . _ § 

tr.Ki - Cannot nod My Stlttio reagent Naie 


10AB 


AABA 

0080 


DCTHDW 
Kt lUhri 


i Kir 

10AF 


AABA 

OOBO 




10AF 


OOBO 


nhsbHbt.Ulli 


1 AO! 

10B4 


AAOA 

OOBO 


LOCfilt 24, J8 - LENlntSwhbt*) / il COLOR II , OsPRINT nbbSh 








lOtr 


AABA 

OOBO 


DC THOU 


IftCt 

lOr M 


A/| OA 




« AfT 


AAOA 
OOBO 




10F3 


0080 




10FB 


0080 


LOCATE 24,I:C0LSR J5,0iPRINT SPAC£t(79)| 


1121 


0080 


RETURN 


1125 


0080 




1125 


0080 


END SUB 


112C 


0080 




16C9 


0080 





50426 Bytes Available 
45718 Bytes Free 

0 Warning Error (s) 
0 Severe Error(s) 
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Reagent Jet Printer 


PABE 1 


Pattern Fi.ino 




07-09-86 








15.11:46 


Offset 


CitS 


Ecurre Line 


IBM Personal Coaputer BASIC Compiler V2.00 


0030 


0004 


IS* $T!TL£:'Reacwt Jet Printer iSUBTlTLE: 'Pattern Filing' 


0030 


W YV 


7.;3ULt - •PATriLE' File Handling for patterns 


UVJV 


VVlrO 






0030 


0006 


'AUTHOR - N. A. i 


[nevoid 


0030 


0006 






A ATA 


VVvO 


■E?TW8HT (C) 1935 ABBOTT IKSRATCRIES 


AA1A 


AAA* 






AMA 
wvvV 


VVvO 


•SEVISIGB - 1.0 02-12-Bl ME Creation of initial code 


AA"JA 


AAAA 

vUvO 






nniA 

UUJW 


VVV0 


•5'i'STEH - This code can only be cospiled by the BASCCK 


SJUtiV 


0066 
wvu 


D0KPILER, it mil not run under the INTERPRETER!! 


0030 


0006 






0030 


0006 


'DESCRIPTIQ*: 




0030 


0006 


This todule allow file handling lor patterns. When inv 






oked, it displays 




0030 


OO06 


the current contents of the pattern directory in 4 colli 






ins of 20 entries 




0030 


0006 


each. The pattern Much is currently selected for pnn 






ting is larked by 




A030 


000A 


an asterisk to the left of the pattern naoe. After the 






directory is listed 


0030 


0004 


the user is presented -ith 5 eenu choices. The left an 






d right arrows are 




AA3A 


VvUO 


used to highlight tenu iteis and the enter key is used 






to invoice action. 




0030 

VViJv 


0006 

VVVB 


The aenu choices and tteir actions are: 


AAIA 


wvwo 


• 




0030 


0006 

VVVB 


DELETE - ?eip»e a pattern file froi the directo 


AATA 


AAtU 


COPY - Ccoy a pattern file to a new pattern n 






aie, saving the old pattern 


AA^A 




REKARE - C v ,ance the naie of the pattern without 






changing the pattern itself 


0030 


0006 


SELECT - Selct a pattern for printing 


aaia 

Uv<»V 


AAAA 


EXIT - Return to the aain aenu 


AA'A 




4 




VUJU 


0006 

VvWD 


'DATA DICTIONARY 




AA1A 


VvUO 


TYPEl 


Which type of valid key was pushed 


aa^a 


wuo 


mm 


Which aenu itet is being pointer to (0-4) 


AAlft 
vwjy 


0006 

VvVO 


D1FFX 


Distance to tove ftENUX at left or right arro 


0030 


0006 

VvVII 


i 

FLAG! 


Error type 0-4 


AA^A 


0006 


P0INTERZ 


Position of PATCHES in directory list 


0030 


0006 


PATHUHl 


Nuiber of pattern nates in directory 






list 




VVJV 


0006 


auimi 


Nuiber of eleients in a pattern file 


0030 


0006 


TEBPI 


Storage for integers during pattern copy 


0030 


0006 


12 


Counter used during pattern copy 


0030 


0006 


« 


Counter used during pattern copy 


0030 


0C06 


AS 


Rise, input string 


0030 


0006 


FWCTI 


Printed at bottoi of screen during proipt fo 






r pattern naie 




0030 


0006 


PATNAHEI 


Pattern naie currently being worked on 


0030 


0006 


SELNARES 


Pattern naae currently selected for printing 
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Reagent 


hi Printer «K 2 


Pattern 


Filino 


07-09-66 




15:11:<4 


Offset 

wit ask 


l/ili 


Crwra (in* TS* pDrrnnal Craoutpr BASIC CoftDl ler V2<00 


0030 


VVWQ 


vv?t ?Usnia» &f nattern data file 


0030 




"llti Filenaie t'cr source pattern data file used d 






0(1119 COjJj 


0030 


0006 


Cfllit Fihnae for destination pattern data Hie u 






sad uunrc copy 


0030 


OCOo 


KEWKAHEi New pattern naie for COPY and RENAME 


0030 




??XPi Pattern naies are held here as the directory 






is Demc re~vniien 


vJuU 




h^vpti Fi Dp^ti nation filenaie used while copyina Pitt 






em oata tiies 


flA*tA 
vv<*v 


AAAJL 


phhrei A ipceanp nrinttd at the bottoi of the scree 


0030 


0004 


n 
It 

KENUtU.ll Array of strings containing the short and lo 






ii g »wu nates 


0030 


«04 


ERRKSBt Hessage printed nhen any error occurs 


0030 


0004 


ERRS Appended to ERRRS6J to indicate nature of er 






ror 


0030 


0004 


TEhT Storage of real variables while copying patt 






ero data files 


0030 


0004 


RE* JPAEE 


nEftQCflt 


Jet Printer FS6E 3 


Paf lorn 


Filing 


07-09-84 




15:11:44 


UTTaEl 


Data 


Source Line 1SH Personal Computer BASIC Coipiler V2.00 


AA^A 


0004 


SUB PATTERN. FILE STATIC 




0004 




Afli7 


0004 


EDSUB INITIALIZE 




0004 


TYPE! * 0 




0008 




0054 


ooce 


WHILE TYPE1 (> 3 


OQjr 


0008 


At * " 


AfliO 
vUbT 


oooc 


WHILE At • " 


UU/B 


00GC 


Al * IHKEYt 


A AD? 


oooc 


DENS 


AAO^ 


oooc 


IF A$ *CHRtl0) ♦ CHRII75) THEN TYPEI * 1: 






'left arroM 


00AA 


oooc 


IF At = CHRS 10) ♦ CHR* (771 THEN TYPEI » 2: 






'right arrow 


00CF 


oooc 


IF At - CHRS (13) THEN TYPE! ■ 3: 






'<cr> to execute selection 


00E9 


oooc 




O0E9 


oocc 


ON TYPEI 60SUB Tl, T2, T3 


00F3 


oooc 


WENO 


OOFC 


oooc 




OOFC 


oooc 


EXIT SUB 


0100 


oooc 




0100 


oooc 


REK tPABE 
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0100 


OOOC 


ilium SUB-ROUTINES FDR THIS ROME mum 


0100 


00S 






0100 


OOOC 


Til 


'left arron 


0105 


OOOC 




TYPE1 * 0 


010C 


m. 




IF MENU! - 0 THEN RETURN 


0116 


00% 




D1FFZ = -1 


0122 


0010 




6CSUB NEH.KENU 


012B 


0010 




RETURN 


012C 


9010 






012C 


0010 


T2: 


'richt arron 


0131 


0610 




TYPE! ' 0 


013S 


0010 




IF REMIX - 4 THEN RETURN 


0147 


0010 




DIFF1 - 1 


out 


0010 




60SUB NEH.KEKU 


0154 


0010 




RETURN 


0158 


0010 






0153 


0010 


T3: 


"<cr> (execute selected ienu it 


0150 


0010 




LOCATE 25,1:PRIN1 SPACE! 179); 


017A 


0010 




ON HEKUZ ♦ 1 GSSUB T3A, T3B, T3C, T30, 1 


018F 


0010 




GOSUB RENU.ON 


0195 


0010 




RETURN 


019? 


0010 






0199 


0010 


REft tPAEE 
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0199 


5050 


1Z*\ d*i*ifi pattern 


OWE 


0010 




Ulh3 


AAI ft 

0020 




QlAr 


vv/lA 






vvH 


♦f 1 til IDlTL**yCf 1 - ft tutu crTttou 


01C7 


GC1B 


op _ rr: la*c* Turn n *m _ i.pnpiifc auau tpaab. 

it PhiXnre* 2 ScJihREi intn Flhfil s 4:60 SUB SHOr.ERRDR: 








01E7 


001E 


cOdUB EEAitCH 


01ED 


001E 


}} PCiNTLu s 0 THtn FLA5I s WbDSUB SKDS. ERROR: RETURN 


0209 


0G20 




020? 


0029 


KSSnotJ = Deleting + PATNAntJ ♦ Please Malt., 

• 


0220 


0024 


■ 

&5UB rIS5hbt*uJi 


022 b 


OQ24 




0226 


AAA! 


r rewrite oi rectory deleting rftiNnnt* as indicat 






ed by FjiXTtKl 


A"*;* 

0226 


0024 


klLL rHTuIn-uu) 


0220 


0024 


wine rATDIK.RJP Kb PATDIR.DLC 




00*4 


DrtN PATUin.QLD r UK INPUT fia 11 


A" JO 


AAA! 

00*4 


nnru tOATB tp nisi tad (mitdiit ac i** 

uPtH PATDIK.RJ? FOR OUTPUT AS It 




KAMI 

0024 




025A 


0O24 


IKPUT 11, PATKL'HZ 


026C 


0026 


PATRUni = PATXURl - 1 


0275 


0026 


MITE l2 f PATKUMI 


02B6 


0026 




0286 


0026 


MTi n iut _ a ii.ru rntn At ft AAuP 

IF PATKdK s 0 ihEH BOTO DIR. DONE 


0195 


0026 


FOR II 2 I TO Pk.HUKI 4 1 


02A4 


002B 


InPUi 11 ,r ATNAnES 


02ro 


Afl**9 


IF IIO rOINTERZ IHtN rKINI l2 f PATNhfltl 


02uj 




HIT II 


02E5 


AA"»A 

002A 




02E5 


A/mi 




02EA 


AA*IJI 

002A 


uCSt II: CLOSE 12 


02FB 


002A 




02FB 


AAA;* 

002A 


'reiove data file 


02F8 


002A 


FILE$ = RIBHTS(SiivHP0IKTEKl),LtH(STRS(P0IKitRX))-l) ♦ 






■ nil A 19iB 

'PAT.RJP 1 


ATf A 

03a 


002t 


vti i ni r» 
KILL F1LII 


0323 


007c 




at*t 

0323 


OvZt 


renaie retaining data files to aaintain linked 






list Kith directory 






wuii r IPMirtfMT + H V PniUTTOT 
iniLL trmwiai ▼ n / ruinitKA 


DAW 




at ill* - nionl»\5in» iruiNltKI+l) t Ltni5TRi IPOInT 








0J59 


0032 


DF1LE* * R16HT* (STRt (POINTER!) ,L£N (STR$ (POINTER 






1J)-1I ♦ 'M7.MP 


0378 


0036 


NfiNE SF1LES AS DF1LEI 


0387 


0036 


P0IKTERZ > P0INTERZ 4 1 


039C 


0036 


VEND 


0393 


0036 




0393 


0036 


S3SUB nESSf.BE.DFF 


0199 


0036 


PATSAdEI « SELSAKEI 


03A3 


0036 


60SUB T3SA 


03A9 


0036 


60SUB DISP.DIR 
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Reagent Jet Printer PAGE 7 
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5 


OH set 


Data 


EoafCi use 11.1 Personal Casputer BASIC Coeoiler V2.00 




0383 


0C36 


73s: ':o?y pattern 




03BE 


0036 


TYPEI - 0 




03BF 


0036 


IF PATKUM 80 THEN FLA8I * 3:EDSUB SHOH.ERRDR: RETURN 




03DE 


0336 


FMH = 'Copy* 


JO 


03E3 


0036 


BCSUB EET.SOURCE 




03EB 


0536 


IF LESlPATWWlEf) * 0 THEN RETURN 




03f: 


003* 


60SUB SEARCH 




0403 


0036 


IF POINTER! ' 0 THEN FLASX - IsBDSUB SHON.ERROR: RETURN 




04 if 


0036 




75 


04 If 


W36 


E3SUB EET.KEV.NAHE 




0425 


007* 


IF LtH(NEWiSKEI) s 0 THEN RETURN 




0437 


0I3A. 


IF LESINEKiARSI) > 15 THEN FLABZ « 2:60S.UB 5H0H.ERR0R:R 


'- 






ETuRK 




0457 


003ft 




20 


0457 


003A 


HE5SASE1 • 'Copying ' ♦ PATNRRE* ♦ • to • ♦ NEHNAHEI ♦ 








' Please wit.." 




047C 


003A 


K5DB ht 5SABE.CN 




04B2 


003A 






0482 


003A 


'add Stmm at end o< directory 


26 


. 04B2 


043A 


KILL •PATDlR.OUf 




0489 


0C3A 


HAKE •PATDIR.RJF" AS 'PAT51R.BLD' 




0493 


O03A 


OPEN 'PATD1R.CL3' FOR INPUT AS 11 




04A4 


C03A 


OPEN •PATOIR.RJP* FOR OUTPUT AS 12 




0486 


003A 




30 


0486 


003A 


INPUT 11, PATNUIZ 




04C8 


O03A 


PATKUM = FATKj-n; ♦ 1 




0401 


O03A 


WTE' l2,nT«UR 




04E2 


003A 






04E2 


003A 


FOR 11 = I TC FaTllUtt - 1 


35 


04F| 


0C3C 


INPUT 11, TEMPI 




0503 


0040 


PRINT ir.TEHFl 




0513 


0040 


NEXT 11 




0525 


0040 


PRINT l2,XEKNAflEI 




0535 


0040 




40 


0535 


0040 


CLOSE IhCUSS 12 




0543 


0040 






0543 


0040 


'create copy o< pattern data File 




0543 


0010 


FILES « Rl 6HTJ i STRt (PO 1 NTERX1 , LEN ( STR4 IPOINTERZ) 1 - 1 ) ♦ 








•PAT.RJP' 


46 


0567 


0040 


NENFHEI « PIGHTt (STRt (PATHUHX) ,LEH(STM IPATHUNIJ 1-1 ) ♦ 








•PAT.RJP* 




058B 


0044 






0585 


0044 


OPEN F1LE$ FOR INPUT AS 11 




059C 


0044 


OPEN KVtLEt FOR OUTPUT AS 12 


50 


05AE 


0044 






OSAE 


0044 


INPUT ILttKUa 




05CD 


0046 


RITE I2,ELKUHI 




050! 


0046 






0501 


0046 


FOR IX « I TO 4 


55 


0508 


0046 


INPUT I1JEKP 




05EA 


CC4A 


KITE I2JEKP 




05FA 


004A 


REIT IX 




060A 


004A 






060A 


004A 


FOR 11 - 1 TO ELNUni 
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Reagent Jet Printer PAGE 8 


Fattern Filing 


fi7.AO.fli 
Vt m Vi 00 






15»11»4a 


nix*** 


Data 


bOUrCE LinB ion rSrSunal UOiflULrr onaiL uuepuer v£*uv 


0617 


004C 


rr-o - 1 in i 
rbn J* - 1 lu o 


Obit 


aa ip 

004C 


1HPHT ii TPHPT 


ftl?A 


004t 


Unlit I2 f itnr* 


0641 


Art JIC 

004k 


WCIT 19 

Ntll JA 


0651 


0050 


htZT 11 


0663 


0050 




0663 


0050 


m app n.rtnrr n 

CLOSE tlrCLuEE 12 


0671 


0050 




0671 


0050 


mmm«ia urfPRf* 1 fiPP 

60SUB HESSAbt.OFF 


0677 


0050 


ECdllB DISP.D1R 


067D 


0050 


RETURN 


Ubal 


AACA 

0030 




AI01 


AACA *' 


T3Ci 'renaie pattern 


0686 


AACA 

0030 


TV0t7 - A 

ITrtl - v 


06BD 


AACA 

0050 


rUNu* - nenate 


0697 


AACA 

0050 


pftpnti ppt ppiropp 
dUSUB tel. SOURCE 


06tD 


AACA 

0050 


tt f ru roATtf^nc#i •> a Turn dctiiom 
IF LENlrflTNftBtfl 5 0 THEN KtlUKM 


06AF 


AACA 

0050 


eUSUB SEARCH 


0665 


f ACA 

0050 


IF F01NTERZ 8 0 THEN FLA6Z * lrbUaUB bnul.LKKUKShttUKM 


06D1 


0050 




C6D1 


0050 


B0SUB BET .Nti. HAKE 


06D7 


0050 


tir t run>ruiiiiHr"#i a Turn APTlt&U 

IF LEN(hE«W«E*l = 0 THEH RETUhN 


06E9 


0050 


IF LEKlNEiNfinEi) ) 15 THtfi FLA5I * 2:bUaU8 5HU».tRKUK:K 






PTinu 

ETURH 


0709 


0050 


IF NEMhnnEf s PAlNwntf I HEN KtlUKR 


071C 


0050 




071C 


0050 


HESSABEt s "Kenan ag 1 ♦ PhTUHEl + ' to ♦ NEkKAntS + 






■ Please wait..* 


0741 


0050 


BOSUB nE3OH0t.uJI 


0747 


0050 




0747 


0050 


'change pattern naie in directory replacing PAT 






NAREf mth ilEiKnnEl 


0747 


AACA 

0050 


Vl\ f ■DftTMD At A* 

KILL rHlOJR.uLO 


074E 


AACA 

0050 


hnnt rHlOJK.rtwr na rfllUIH.uLl/ 


A7CP 

0756 


AACA 

0050 


OPEK rHlDih.Uufl FUR INPUT AS 11 


0769 


AACA 

0050 


Urtn rMlJiK.nJr rw UUlrUi no 12 


077B 


AACA 

0050 




Villi 


AACA 

OUjU 


INrul II) rHlNbnl 


078D 


AACA 

0030 


InUt l4|rHlnuni 


O/Vk 


AACA 

UU3U 




A70C 
0/7C 


AACfl 


rUR lA " 1 lu in InUni 


A7AD 


AAC7 

0032 


input ii rr«pt 


O/oU 


AAC5 

0032 


lr li \/ rUlnltnX IntN r KIN 1 f2|it(irt 


07Dfl 


Q0u2 


TP IT s PntttTC&T TUPU P01UT 19 WPUMflUPt 


0/r/ 


0032 


UCTfT tl 
fltil 1& 


0bU7 


0032 




ADAS 


AAC9 

0032 




0817 


0052 




0817 


0052 


E0SU6 HESSA6E.0FF 


081D 


0052 




081D 


0052 


'select new oat tern one if necessary 


0BID 


0052 


IF mmit * SELNfiBEl THEN PATNMEJ s NEHNAfl£i: BDSUE T 






3DA 


083C. 


0052 


EOSUB 0ISP.D1R 
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Pattern Fiiino 07-09-86 

15:11546 

Offset liti scarce Line IE* Personal Coaputer BASIC Coipiler V2.00 

034? 0u5T FiTwRM 
GS46 0052 

0B46 0C52 m $P;5E 



20 



40 



Reagent Jet Printer PftSE 10 


Pattern Filing 


A7.AQ.flJ. 

V/ VT DO 






IS, J 1 ■ <i 


UtTSBX 


Dili 


CmiprB t i no TPM Pflrcnnal rnimitfir RfiCI T rnnnilar U7 AA 
source Line ifr" rersuim luiuuirr ohjil lospuct vx«vw 


UO**0 




lou: select paiiem *or printing 


0E4R 


VUJi 


TYPFT r A 




UUJI 








6QSUB BET. SOURCE 


UOOi 




IP 1 CMfPATWAMC*! b ft THFH RETURN 


0871 




IP PATNAKEf s SELKAKEi THEN RETURN 

»r rninnntr w cm nut* intn rvtiimn 


AAR7 

vOD/ 




cnciiR T3I.A 


UOOu 




cnQHR DISP MR 


0893 


0052 

VVJi 


RETURN 








0897 


0052 


T3DA: 


089C 


0052 


B0SU5 SEARCH 


08A2 


0052 


IF POINTER! * 0 THEN FLAS1 « hEOSUB SKDII. ERROR: RETURN 


08BE 


0052 




OSEE 


0052 


KESSASE* = 'Selecting ■ ♦ PATNANE1 ♦ ' Please Wait. 


08D5 


0052 


EOSUB HESSA6E.0N 


08DE 


0052 




08DB 


0052 


'change entrys in pattern default file PATDEF.R 






JP 


OBDB 


0052 


OPEN "PATDEF.R3P" FOR OUTPUT AS 11 


08E0 


0052 


FILE* = RI6HlJ(SIR$(P01NTEKl,LEN(STRt(P01NTERll)-l) ♦ 






•PAT.WP* 


0911 


0052 




0911 


0052 


PRINT 11, FILE! 


0921 


0052 


PRINT il,PATKANEf 


0931 


0052 


0931 


0052 


CLOSE 11 


093B 


0052 


EOSUB BESSA6E.CFF 


093E 


0052 


RETURN 


0942 


0052 




0942 


0052 


T3E: 'exit pattern filing 


0947 


0052 


RETURN 


094B 


0052 




094B 


0052 


REN tPABE 
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15:11:46 


Offset 


data 


Source Line IBJ1 Personal Computer BASIC Coaoiler V2.00 


094B 


0052 


SEARCH: 




0950 


C052 




POINTER! = 0 


0957 


0052 




GrsJf 'FAiDIfi.RJP 1 FOR INPUT AS 11 


0966 


0052 




1KPUT iljPATKUru: get nuaoer of patterns in ouec 






tory 




097fi 


0052 




IF PATNUHI - 0 THEN CLOSE ll:RETURN 


099D 


0052 




TEMPS = " 


099A 


0052 




YrilLE (PQINTERZ < PATKUMl) AND (PATNANES <> TEMPS) 


09C2 


0052 




LINE INPUT ll.TENPS 


09CF 


0052 




P01NTEKI = POINTERI ♦ 1 


D90B 


00S2 




VEND 


09DB 


0052 




IF PATHAHES <> TEMPI THEN POINTER = 0 


09F1 


0052 




aosE 11 


09FB 


0052 




RETURN 


09FC 


0052 






09FC 


0052 


BET.SDWCE: 


OA01 


0052 




LOCATE 25,1: COLOR 15,0: PRINT 'Enter Pattern Nate to 'FU 






HCT*" 


'I 


0A33 


0052 




LINE INPUT:" .PflTNANES 


OA41 


0052 




LOCATE 25,1:FR1NT SPACE* (79) ; 


0A5E 


0052 




RETURN 


0A62 


0052 






OA&2 


0052 


6ET.liEV.HAK: 


0A67 


0052 




LOCATE 25,1: COLOR 15,0:PRINT 'Enter Ne» Pattern Naae '; 


0A80 


0052 




LINE INPUT: "..MCTAHEI 


OA9B 


0052 . 




LOCATE 25,I:PR1XT SPACES 179); 


0AB8 


0052 




RETURN 


OABC 


0052 






OftBC 


0052 


tlSP.BIR: 'display directory in 4 eoluins, 20 rons 


OAC1 


0052 




'reao ce«aul t pattern na*e into SELNAHES 


0AC1 


0052 




OPEN 'PATOEF.F.;?* FOR IKFOT AS 11 


0AD2 


0052 




INPUT ll.SELNAHES: 'discaro data file naie 


0AE4 


0052 




INPUT tl,SELKAKES 


0AF6 


0052 




CLOSE 11 


OAFD 


0052 






OAFD 


0052 




OPEN "PATD1R..W FOR INPUT AS 11 


OBOE 


0052 




INPUT ftlf PATKUKX: ' read nunber of patterns 


0B2O 


0052 






0B20 


0052 




KESSASES = "Reading Pattern Directory Please Naif 


0B2A 


0052 




60SUB HESS ABE. ON 


OB30 


0052 




flasi = o 


0B37 


0052 


I 


TEMPI = PATNUHI - lx IF PATNUHI < 60 THEN TEMPI = PATNUH 


0B52 


0052 




FOR 11 * 0 TO TEMPI 


OBSE 


0054 




LOCATE (II HOD 20Hl,(lNT(H/2o)»20M 


0891 


0054 




PRINT SPACES (IB); 


OBAI 


0054 




NEIT 11 


0BB3 


0054 






0BB3 


0054 




FOR 11 = 0 TO PATNUHI - 1 


0BC1 


005& 




INPUT ll.PATNAIEI 


0BD3 


0056 




LOCATE (12 HOD 201 +1, (IHTlll/201 «20l*3 


0C06 


0056 




FR1NT FATNAHE): 


0C13 


0056 




IF PAT NAMES = SELNAHES THEN LOCATE (11 MOD 201* 



l,(lNT(IZ/2G)«20hl:PRINT '*", 
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Offset Data fcurre Line IEK Personal Computer BASIC Cospiler V2.00 



0C62 


0C56 


SETT IS 


0C77 


0056 


CLOSE 11 


0C7P 


AACNL 


buous nLbanbL.Urr 


oca< 

VwDl 


bCSA 


i\ttunn 








orgs 




iy7T.fi! T7C» 


atqa 

ULclU 


vuD6 


«1k MPIlii* 1 i 4 1 

Ilfl nEm)IM,U 


nrcc 


AATT 

w/t 


ISHK(0,0> = "Del Etc* 


ap*i 


a**ic 


MP»*M t 1 A II - I ft • • „ .11 _ f • 1 f J. A. J" L ■ 

REKul(0 f l) s 'Reiove a pattern file froi the directory 1 


nrn 


AfTT 


ntNUSil.O) s Copy 


OtUL 


vv7t 


ENU$U,1) : Copy a pattern file to a new pattern naie 

• 




AA7T 
Wit 


nENu»l2,0) s Renaie 


QDU 


007c 


KQOf(2,ll s 'Renaie a pattern file in the directory 1 




AA7T 


nENU*l3,0) ■ Select . 


at\id 




KENU*(3,1] = Select a pattern file to be printed' 


Ann 




BtNU>(4 ! 0) s Exit 


Quo* 


AA7T 


^^1)^(4. 1) = 'Return to the uin eenu 1 




00/t 


nnoc 

Vint 


AATT 
Wit 


Pfll KB ti A PI P 

COLOR 9 , 0: CLS 






« p»rt*TP < • 

lDuATE 21,1 


nnoc 


W7t 


FOR IZ = 1 TO 80 


P.PPC 

CDC5 


007E 


PRINT '!)•; 


0DD2 


007t 


NEIT 11 


Anr*\ 

0DE2 


007E 




Ann 
QDE2 


0Q7t 


FOR ItENUI - 0 TO 4 


nnto 


AATt 


POPUP M*\ II PPP 

50SUB PtW.OFF 


After 


Vv>t 


NEIT NEKIH 


Ante 


00/t 




AP.PP 

ODFE 


0C7E 


S0SUB DISP.DIR 


QE04 


007E 


IF FIAB1 > 0 Tr.iH EOSUB SHOK, ERROR 


AC tC 


w7t 


flENUX = 4 


OtlC 


007E 


GQSUB REKU.0N 


0E22 


007E 




ami 


WJ7t 


RETURN 


am* 
0E26 


007t 




OtZb 


AA^r 
w/t 




AC»L 


AATC 


cnenti iff nrc 

bOSuB ntNU.CFF 


Aim 


AA7C 


■twin — icum x ntrr% 


Ar?n 

utoy 


AA7C 
wV/t 


cnciiB mcuii nu 




AATE 
W/t 


DCTiipy 
KtlUKII 


nm 


vv/c 




API7 
VtV 


AA7C 

VVVt 


ffPlflf All* 


0E4C 


007E 


LOCftTE 22,tnENUX»iO)*lB 


0E63 


007E 


COLOR 0.7 


0E6F 


C07E 


FRINT KENUKRENilI.O); 


OEBD 


007E 


LOCATE 25, 40-LEK IKENUI WEWJX, 1 ) ) 12 


0EC1 


007E 


COLOR 7,0 


OECH 


007E 


PRINT rOU$(HENUI,n; 


OEEC 


007E 


RETURN 


0EF0 


007E 




0EF0 


007E 


.'.EMU. OFF: 


0EF5 


007E 


LOCATE 22.IHENUIU0)4iB 


0F0C 


007E 


COLOR 14,0 
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Vila 


Source Line IBfl Personal Caeputer BASIC Coepiler V2.00 


ur id 


nn?P 




PR1HT KKlll (10111,0): 




0Q7F 

vV/C 




LOCATE ZS T 40-LEN f KEKU5 (KEKU1 . 1 1 1 /2 


vron 


vv/ l 




PRIST SPACES (LENIHESIK iREHOX, 1) ) ) ; 


uror 


Vv/L 




RETURN 










OFSJ 


AA7T 


SKON.ERRCRs 


QF9B 


00/L 




ntt n ^ncno ret TOO CD? CBl 

ON FLfiBI wOSUB ERl, Liu, ttvo, IK* 


ACAO 


AA7T • 
UU7E 




EnRHSoJ = ERR* ♦ 5 true any ley.. 


ncto 
OroT 


OCBfi 






actio 


AAQl 




COLOR UtO 


ft cm 


AAQl' 

0086 




PRINT ErtR.ISBSj 


AtCA 

0rr4 


AAQl 




AS 8 


ftCCC 

OFrt 


AAOl 




■Hilt At - 


i ftftn 

lvVU 


aabjl 
vUoo 




a» - TllVFYi 


10 w 


uuoo 




WEKD 


101A 


0086 




GOSuB nEBsAbt.UFF 


i a*ja 
lQiO 


AADi 

00B6 




RETURN 


IMA 


aacj* 

UUOO 








AAQl 


ERl: 




102t 


AAQl 

0056 




ERRI * PATKAHES ♦ ■ Mot Found in the Directory' 


1A?Q 


AAQl 
GOOD 




RETURN 




UUOO 






1 A^fl 


vUoo 


ER2: 




10A2 


Ann t 

0QB6 




ERRI * "Pattern Kaie is too Long (15 characters lax.) 1 


104C 


AADI 

O0B6 




RETURN 


1030 


AfiOl 
UUB6 






I0w0 


AAQl 


ER3: 




1055 


D0B6 




ERRS s •Directory is full (80 patterns hx.)' 


I05F 


AA91 

0086 




RETURN 


| Alt 

1V0J 


VUOO 






lvOJ 


vUDO 


ERA: 




Ivoo 


WOO 




ERRS - 'Cannot Itodily SELECTd pattern Naie' 


1A79 


VUOO 




RETURN 


1 A7i 
1076 


AAQl 

00B6 






1 Alt 


AAQl 

UUoo 


RES5A6E.CN: 


in7P 


AAflA 

vvou 




LOCATE 2^,33 - LEH(RES:A5ES) / 2:CDLCR 11,0. PRINT NES3A 






EE!; 




lVDO 


UUOO 




RETURN 


1AR6 
1UDH 


UUOO 






1 ADA 


UUOQ 






108A 


0086 


KESSASE.0FF: 


10BF 


0086 




LOCATE 24,hC0LGR I5,0:PRINT SPACES (79); 


10EB 


0086 




RETURN 


10EC 


00B6 






10EC 


0086 


END SUB 


10F3 


0086 






1683 


0086 







5042b Bytes Available 
45670 Bytes Free 

0 Warning Error (s) 
0 Severe Error (s) 
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Kesqer.t Jet Printer PAGE i 


Kain Line Code 


Q/H'V-oo 








Offset 


Data 


Source Line i&n rersonpi losouter bftbiu Loapuer 


0030 


0006 


REK f TITLE: neagent Jet Printer jSUETITIE; nam Line code 


0030 


0006 




0030 


0006 


'MODULE - 'MAIN 1 


0030 


0006 




0030 


O006 


'AUTHOR - Hi A. Enevold 


0030 


0006 




0030 


0006 


'CDPYRI6HT (0 19B& ABBOTT LABORATORIES 


0030 


0006 




0030 


0006 


REVISION - 1.1 02-19-B6 NAE Add notes and revise TiPtZ resetin 


0030 


0006 


9 

- 1.0 02-14-86 NAE Creation of initial code 


0030 


0006 




0030 


0006 


SYSTEH - This code can only be coipiled by tne Bflsctn 


0030 


0006 


COMPILER, it mil not run under the INTERPRETER!! 


0030 


0006 




0030 


0006 


•DESCRIPTION 


0030 


0006 


This is the tain controlling lodule lor the Reagent Jet 






Printer, 


0030 


0006 


It displays a aenu in table fori that allows 6 function 






s to be 


0030 


0006 


selected. PATTERN DEFINITION allows the user to define 






patterns 


0030 


0006 


to be printed. PATTERN FILING lets the user delete, co 






py, renaie 


0030 


0006 


.•111 • i - nr A^pkiT p ai inn attoii 

and select patterns tor printing. REAGENT CALIBRATION 






penits setting 


0030 


0006 


of operation paraieurs for different reagents. REABcN 






T FILING is 


0030 


0006 


the saie as pattern tiling. PRINTING PRINT prints the 






selected 


0030 


0006 


pattern *ith the selected reagent. SYSTEM EXIT TO DOS 






ends the session. 


0030 


0006 


Using up and dovn arrow keys let the user love through 






the aenu and 


0030 


0006 


the Enter <cr) key activates the selection. 


0030 


0006 




0030 


0006 


'DATA DICTIONARY 


0030 


0006 


' REWJI This value represents the current cenu 






itei (0-5) 


0030 


0006 


MENU$(5,1) String array for displaying unu i teas. 






6 tons by 2 colutns 


0030 


0006 


Each row corresponds to a aenu itet (0* 


0030 


0006 


5) 

* mm\ iim ir rkup) »» Vault 

* urst coiuin is snori fttnu mie in nign 






lighted area 


0030 


0006 


* becono coiuin is long Description oispi 






ayed at eenu bottoi 


0030 


0006 


KRDiZio) »nis array stores 10 ron in wucn me s 






hort eenu naae Mill be displayed 


0030 


0006 


D1FF1 This value is used it change MENU! in r 






esponse to arron keys 


0030 


0006 


TYPE1 This value is set based on which valid 






key is pressed 


0030 


0006 


0 = No valid key. 1 5 Up Arrow. 2 = D 
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Offset 


Data 


Source Line !M Personal Coaouter BASIC Coipiler V2.00 






oun Arrow. 3 * <cr>. 


0030 


0006 


TEMPI Used to store MENU! while screen is re* 






resiled 


0030 


0006 


A* Used to store single input keystrokes 


0030 


0006 


CJ Used to store special graphics characte 






rs used in drawing the tenu table 


0030 


0006 


11 Counter used to refresh display 


0030 


0006 


RX Rom in which special graphics character 






is displayed 


0030 


0006 


CI Coluin in which special graphics charac 






ter is displayed 


0030 


0006 


RES IPAGE 


Reaoent 


Jet Printer PA6E 3 


Rain Line Code 


07-09-B6 






15:27:04 


Offset 


Data 


Source Line iE* Personal Cotouter BASIC Compiler V2.00 


0030 


0006 




0030 


0CC6 


'Sam-line toie tor KJP Reagent Jet Printer 


0030 


0006 




0030 


0006 


M IN. LINE. CUBE: 


0030 


0006 




0030 


0006 


eCSUB INITIALIZE 


004* 


0006 




004E 


0OC6 


KH1LE TYPEI 0 3 


0056 


OOOB 




0056 


0008 


TYPE! = 0 


005D 


0008 


A$ - M 


0067 


OOCC 


WHILE Af = " 


0076 


oocc 


AS = INKEYI 


0060 


OOCC 


VEND 


0083 


oocc 




0083 


oocc 


IF A$ * CHRKO) * CHRII72I THEH TYPEI * 1:' 






up arrow 


OOAB 


oocc 


IF As = CHRi(O) ♦ CHRS(BO) THEN TYPEI = 2:' 






down arrow 


..OOCB 


oooc 


IF A$ = CHRM13) THEN TYPE! = 3:' 






(cr) execute cociand 


00E7 


oooc 




00E7 


oooc 


OK TYPEI 60SUB 11, T2, T3 


00F6 


oooc 




00F6 


oooc 


KND 


OOFfi 


oooc 




OOFA 


oooc 


CLS 


0101 


oooc 


COLOR 7,0,0 


0112 


oooc 


SYSTEM 


0116 


oooc 




0116 


oocc 


REH IPA6E 
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Main Line Code 


07-09-B6 






15:27:04 


Offset 


Data 


Source Line IE* Personal Coiputer BASIC Cocpiler V2.00 


0116 


OOOC 


' iff Hill SUB-ROUTINES FOR flnlH PR06RAH 


0116 


OOOC 


Tl: 'ufi arm* 

1 A • U ft ml 1 Ul 


011B 


OOOC 


IF KENUZ = 0 THEN RETURN 




OQOE 

Vvvk 


D1FFX = -1 

Will* I 


0151 


0010 

vViw 


cncMf) wrw menu 


0137 


0010 


nblUnll 


013B 


C010 

vvl V 




V* 06 


0010 

WW* V 


IX* UE>*n 41 l Ul 


0140 

VlTV 


0010 


IP HPNUI s 5 THEN RETURN 

ir ncnuA j i ntn ntiu^n 


014F 


0010 


BIFPI s 1 


VIJD 


0010 


Rfl^llR NPU NFNH 
DuSUD nc».ncnu 


01SC 

V 4 WW 


0010 


RETURN 

flk> 1 Uml 


V 1 BV 


0020 




0160 


0010 


T3: 


0ib5 


0010 


ON ftEKUl ♦ 1 60SUB T31, T32, T33, T34, T35, T36 


017C 


0010 


IF HENilZ < 5 THEN TYPEZ = 0: ' reset TYPEI so prcgrai 






won't end 


Vl9k 


0010 


J Latin VjVyWfW 


01A5 


0010 


fcPTURN 


Olfi? 


0010 




0IA9 


0010 


T31: 'nattern definition 

Nil pflVVCl II UCI till klMll 


01AE 


0010 


CALL PATENTRY: 'in toddle PATENT 


01BA 


0010 


60SUB REFRESH 


01C0 


0010 


RETURN 


01C4 


0010 




01C4 


0010 


T32: 'pattern filing 


01C9 


0010 


SCREEN 0,0,0,0:CLS 


01E5 


0010 


CALL PATTERN.FILE: 'in eoduie PATFILE 


01F1 


0010 


RETURN 


01F5 


0010 




01F5 


0010 


T33s 'reagent calibration 


01FA 


0010 


CALL REA8ENT. CALIBRATE:' in todule REACAL 


0206 


0010 


RETURN 


020A 


0010 




020A 


0010 


T34s 'reagent filing ienu 


020F 


0010 


SCREEN 0,0,0,0:CLS 


022B 


0010 


CALL REA5ENT.F1LE: 'in todule REAFILE 


0237 


0010 


RETURN 


023B 


0010 




023B 


0010 


T35: 'print pattern 


0240 


0010 


CALL PATPR1NT: 'in eoduie PATPR1NT 


024C 


0010 


RETURN 


0250 


0010 




0250 


0010 


T36: 'exit systee, don't reset TYPEI 


0255 


0010 


RETURN 


0259 


0010 




0259 


0010 


RER iPABE 
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0259 


0030 




025E 


0030 


BDSUB HEK'J.OFF 


0264 


0010 


hekii = HEWE + DIFF1 


0270 


0010 


BCS'JB HEKJ.0N 


0276 


0010 


mm* 


027S 


OO10 




027ft 


0010 


1H1TIALIIE: 


027F 


0010 


CALL PCI.1RIT 


025B 


0010 




028B 


0010 


detine and initialize arrays 


028B 


0010 


DiH KROSltS) 


026C 


OOIC 


MiW) * 4 


029E 


001C 


HROKZd) = 6 


02B1 


OOIC 


mam = 10 


02C4 


001C 


!G0HI31 = 12 


02D7 


001C 


ff.CK(4) » 16 


02EA 


OOIC 


Moaisi - 20 


02FD 


OOIC 




02FD 


OOIC 


DIH KENU»(5,1) 


02FE 


004C 


RESTORE HEKU.STR1KE.DhTA 


0305 


C04C 


FOP- 12 * 0 TO 5 


030B 


004C 


READ nEHUSIIZ,C],l!ENU$(Il.l) 


033B 


0O4E 


KIT i: 


034B 


004E 




034B 


O04E 


set initial values into variables 


034B 


004E 


TYPEI = 0 


0352 


004t 


KE'iUX = 0 


0359 


004E 




0359 


W4E 


REFRESH: redra* screen ana -icnhoht current eenu selection 


035E 


C04E 


035E 


054E 


ECfEEN 0,0,0,0:CLS:CCL2?. 7,0,0 


0386 


004E 


LOCATE 10,32:FR:KT 'loafling Henu * 


03A5 


004E 


SCFSEH C,0,3,0:CLS 


03C2 


004E 




03C2 


M4E 




03C2 


004E 


COLOR 13,0 


03CE 


004E 


LCCATE 1.3! 


03DB 


OC4E 


PRINT 'REnEEKT JET PRINTER'} 


03E3 


004E 


CClGR 19,G 


03F4 


O04E 


LOCATE 5,26 


040! 


004E 


PS1KT 'PATTERN' 


040c 


004E 


LOCATE 11,26 


0416* 


004E 


PRINT 'REABEKT* 


0428 


OWE 


LOCATE 16,26 


0435 


004E 


PRINT •FRIHT1KS" 


0442 


OC4E 


1 nf**TF HA HI 

LOt.nTE 20,j7 


044F 


004E 


PRINT "SYSTEM" 


045C 


004E 




045C 


004E 


trait the aemi table in special graphics characters 


045C 


004E 


COLOR 9,0 


0466 


004E 


FOR I! - IB 10 63 


046F 


O04E 


LOCATE 2.1S:FSINT T; 


04BA 


004E 


LOCATE 8,II:FRIHT Tj 


04A5 


004E 


LOCATE 14,II:PKIHT T; 
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04C0 


094E 




04DB 


004E 


' firflTP ?? PRINT , D ,< 


v~r v 




1 nraTF 7i IMPRINT in '» 


(fill 






0*24 




rUA IA - J III Xi) 


052B 


004 F 


LUUnIC iAji/»rAini g f 


0546 


004 1 

wvit 


1 nrCTF 17. A4»PRIHT ■J 1 ? 


0561 


0&4t 

VtTlt 


MFiT IT 


0571 

V J# i 


3G4r 


RFSTORF TASIF 

ALOiunL tnOLw 


0578 




run ik - i iu 44 


057F 


004E 


READ RI.CI.CI 


0592 


0054 


LOCATE RI, CI: FRIST CI; 


ASAP 




■TIT T7 


A r .RF 


WJO 




UjoL 


WJO 


print tne instructions 


UuOt 




mi HO 7 A 

CULQK 7,0 


vjIR 


aac r 
VVJO 


LOCATE 2 j ,6 




AAC1 


t»D1MT III.,. . _ _ A _ L| aLl ! nkl MKKH ; 1... I 1 _ _ i _ 

PRINT Use or to highlight lenu i tess* Use to 






activate selection.*; 


05t4 


AACt 

0056, 




05E4 
■ , 


0056 


COlOR 15,0 


AAAA 


UUJO 




Atn 
0624 


AfiCl 

OUjo 


LCCATE 25 ,47: PRINT f Dr; 


U60L 


vQjo 


* AA7r 


AACl 


• 

display the 6 tenu choices 


U6»it 


AA*l 
vvd6 


TtnrI = niHUl 


U07J 


Aft CO 


m5 KCIJ1I7 • A TA K 

run ntNUl • U III 3 




Vv JD 


cn?iiR "pwi rrp 


AA^1 


Afl r Q 


Nt.il nbNUl 


AAA1 


VJjfl 


ntKUI s ItAri 


UOOB 


vv jO 




AAA& 


\T4JO 


• ... . 

highlight the currently active aenu itei 


AAAR 




cnciio uruii nu 
cusufl ncNU.Un 


voot 


WJO 




Uoot 


ft/I r ft 


erpcrij a ft 7, 7 


Uotw 




PfTllPU 


AARD 
vOOT 


vv JO 




A1DO 
VOOT 


WJO 


ntnu.ui*. nigniigni inc ifnu n^rtuA ino Display lis lOny Oescnpt 






inn 
I BO 


a ACT 

WOOL 


VUwO 


mi np a 7 

LUtUA V,/ 


UOTN 


COM 

W JO 




UOUH 


AA^R 


PRIVT MFmit f MFW1IT fit* 


06F6 


OCjB 


COLOR 7,0 


0704 


005B 


LOCATE 23,40.5-LEN (HENU» IKENUI, 1) J/2 


0738 


005B 


PRINT OUHRENU!,!); 


0757 


0058 


RETURN 


075B 


C058 




075B 


0MB 


REKtl. OFF j'isn-highlinht ienu HEHUI mi) erase long description 


0760 


0053 


COLOR 14,0 


076C 


C053 


LOCATE BROW InSHUl) ,52-LEMlHEHUJ (KEHUl.O) ) 11 


07AC 


0053 


PRINT RENDS IBEKUI, 0) ; 


07CA 


0058 


COLOR 7,0 • 


07D6 


0058 


LOCATE :3,40.5-LEmaENUS(raW,l))/2 
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OBOA C05B PRIHT SPACE* (LEMHENUi OSENUI, I) ) ) ; 

0S2F 005B RETURN 

0B33 OOSfi 

0B33 0053 KEH I? ABE 
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Offset 


Date 


Source Line IBH Personal Cowuter 'BASIC Cotoiier V2.0O 


0533 


0053 


m«m OATA FIELDS USED BY THE JO PKOERAfl tMtmt 


0633 


0358 




0333 


0053 


REKU.5THINS.0ATA: 'first entry is eenu naie, second is lo 






no description 


0838 


0058 




0838 


409 


DATA 'DEFINITION', 'Create and Modify Patterns' 


083A 


C053 


DATA 'FILING*, 'Delete, Copy, fienaie. and Select Pa 






tierns' 


083C 


0053 


DATA "CALlBfiATIOH", "Calibrate and Aodify Reaoent ProM 


083E 


0053 


DATA 'FILIN6', 'Delete, Copy, Renaie, and Select Re 






agsnts 1 


0840 


0053 


DATA 'PRINT*, 'Print Selected Pattern eith Selecte 






d Reagent 1 


0642 


0053 


DATA •EXIT TO DOS', 'Leave Prograi and Return to DOS* 


0844 


0058 


0844 


0058 


TAELEs "lirst entry is ro*. second is cdIuia. third is soecial 

■ • • w » i i « w iwf ^ k b> «f it m m ? V m A W ill Villi v m 9 14 






graphics character 


0849 


0053 




0B49 


005B 


DATA 2,17/2* 


0S4B 


0058 


DATA 2,64/?* 


0840 


0058 


DATA 8,17/C* 


084F 


0058 


DATA B,64/4* 


0851 


0058 


DATA 14,17/C* 


0853 


0058 


DATA 14,64, M* 


0855 


0058 


DATA 1B,17/C' 


0857 


0058 


DATA 18,64/4' 


0859 


0058 


DATA 22,17/C' 


0858 


0058 


DATA 22,64, "4 - 


0850 


0059 


DATA 24,17/1- 


085F 


005? 


DATA 24,64/r 


0861 


0058 




0861 


0058 


DID 


0865 


0058 




0842 


C05B 




50476 Bytes Available 



47660 Bytes Free 

0 Karning Error(s) 
0 Severe Error (s) 



so Claims 



1 . A dispensing system for use in diagnostic instruments for precise metering of a desired diagnostic 
fluid, the system comprising: 

a jetting chamber defining a volume and comprising a first and second aperture, the first aperture adapted 
to receive diagnostic fluid, the second aperture defining an orifice: 

a transducer in mechanical communication with the jetting chamber, the transducer operative to alternately 
expand and de-expand the volume of the jetting chamber in response to a selected electrical pulse and 
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thereby cause the jetting chamber to omit a substantially uniformly sized droplet of diagnostic fluid through 
the orifice; and 

means for generating a number of electrical pulses sufficient to cause a desired quantity of the diagnostic 

fluid to be dispensed. 
5 2. The invention of Claim 1 wherein the system further comprises: 

at least one additional jetting chamber in fluid communication with an additional diagnostic fluid; 

at least one additional transducer in mechanical communication with the additional jetting chamber; 

at least one additional means for applying an electrical pulse to the additional transducer; 

means for generating respective numbers of electrical pulses sufficient to cause precise quantities of the 
io diagnostic fluids to be dispensed in a desired volumetric ratio; and 

a receptacle adapted for and positioned to receive the fluids. 

3. The invention of Claim 1 wherein the system further comprises: 

means for directing at least one of (1) the receptacle and (2) the emitted diagnostic fluid and the emitted 
addi-tional diagnostic fluid such that desired quantities of the fluids are dispensed into the receptacle in a 
75 predefined dispensing order. 

4. The invention of Claim 1 wherein one of the diagnostic fluids comprises serum and wherein the 
jetting chambers cooperate such that the other diagnostic fluid is emitted In a manner to contact and mix 
with the serum. 

5. The invention of Claim 1 wherein the jetting chamber comprises a cylindrical tube and wherein the 
20 trans-ducer is mounted concentrically about the cylindrical tube. 

6. The invention of Claim 1 wherein the jetting chamber is conically shaped. 

7. The invention of Claim 1 wherein the jetting chamber comprises at least one chamber wall which is 
integrally formed with the transducer. 

8. The invention of Claim 1 wherein the transducer is one of (1) a piezo-electric transducer; (2) a 
25 magneto-strictive transducer; (3) an electro-strictive transducer; and (4) an electro-mechanical transducer. 

9. The invention of Claim 1 wherein the jetting chamber is conically shaped; and wherein the transducer 
is disc shaped and forms the base of the conically shaped jetting chamber. 

10. The invention of Claim l wherein the orifice comprises an end face and the end face is coated with 
a hydrophobic polymer. 

so 11. The invention of Claim 1 wherein the transducer is cylindrical^ shaped and comprises a first 
electrode located on the inner wall of the cylinder and wraps around one end of the cylinder and wherein a 
second electrode is located substantially on the outer wall of the cylinder and is electrically isolated from 
the first electrode. 

12. The invention of Claim 1 wherein the means for generating produces an electrical pulse of selected 
35 rise and fall time constants and of selected duration, voltage and polarity. 

13. The invention of Claim 1 wherein the means for generating the electrical pulse comprises means for 
scaling the voltage of the pulse in response to a selectable digital value. 

14. The invention of Claim 1 wherein the apparatus further comprises means for directing the emitted 
diagnostic fluid along a desired path. 

40 15. A method of dispensing precise quantities of diagnostic fluids comprising the steps of: 

(a) generating an electrical pulse of predefined characteristics; 

(b) reducing the volume of a chamber containing the diagnostic fluid by electro-mechanical means in 
response to the electrical pulse such that a droplet of fluid of known volume is propelled tnrougn an orifice 
in the chamber; and 

45 (c) repeating steps (a) and (b) until a desired quantity of the diagnostic fluid has been dispensed 



88 



0 268 237 



FIG.1 



COMPUTER 



-700 



r 



600 



INTERFACE UNIT 



500- 



JETTING HEAD 
CONTROL UNIT 



r200 



RESERVOIR 



^300 



FILTER 



r AO0 



REAGENT 
JET 
HEAD 



L 



500 



JETTING HEAD 
CONTROL UNIT 



£200 



RESERVOIR 




^300 


FILTER 




r 400 


REAGENT 
JET 
HEAD 




-2 

) 



n 



-500 



JETTING HEAD 
CONTROL UNIT 



/r200 



RESERVOIR 



300 



FILTER 



r 



400 



REAGENT 
JET 
HEAD 



0 

0. 



til 



TRANSPORTATION 
UNIT 



902 



906 



DETECTION 
STATION 



0 268 237 




0 268 237 



REAGENT FLUID 
RESERVOIR 



400 



FILTER 



FIG. 3 

^200 
-300 500 



REAGENT 
JETTING HEAD 



-10 



600 



700 



(SCOPE 



950 
1 





LED 



TARGET 



800- 



900 



X-Y PLOTTER 





JETTING HEAD 
CONTROL UNIT 




INTERFACE 
UNIT 




COMPUTER 



REGULATED 


AND ' 


PRESSURIZED 


AIR 




100 



200 



■20 



REAGENT FLUID 
RESERVOIR 



980 



960 

A 



990 



MAGNETIC 
STIRRER 



FILTER 



NC 



300 
970 



THREE-WAY 
N.C. VALVE 



SUMP 



NO 



COMMON 



L 



400 



VENT FOR 
REAGENT 
JET HEAD 



REAGENT 
JETTING HEAD 



500 



(scope] 










950- 



TARGET 



800' 



900 



X-Y PLOTTER 



r 



600 



L 



700 





JETTING HEAD 
CONTROL UNIT 




INTERFACE 
UNIT 




COMPUTER 



FIG.4 



0 268 237 




0 268 237 




0 268 237 



FIG. 5d 
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